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PROLOGO 


Este libro va dirigido a todos aquellos propietarios de un 
ATARI 400 XL / 800 XL / 130 XE,. que se han cansado de los 
Juegos de tiros y acción, y que ahora desean ocuparse de 
juegos más Inteligentes. 

Con este libro usted dispone de la llave para acceder al 
mundo de los juegos de aventuras, la I lave de un mundo que 
hasta ahora sólo había rozado. Después de ojear las mas 
diversas revistas especializadas, habrá llegado varias veces 
a la conclusión, de que los programas allí publicados sólo 
convierten su ordenador en una cónsola de juegos. 

Al estudiar el 'Aventuras - y como se programan con el 
ATARI*, descubrirá en seguida que además de su aplicación 
para representaciones gráficas, el BASIC del ATARI también 
permite el tratamiento de textos, y aprenderá a usarlo. 

Paso a paso vamos a desarrollar juntos una técnica en la 
programación de Juegos de aventuras, cuya forma de 
presentación, tanto óptica como técnica, puede 
tranquilamente equipararse con las aventuras profesionales. 

Aunque Vd. no sea un programador profesional, nosotros le 
daremos la base necesaria para llegar a entender los 
programas a través de unos textos , que bajo el nombre de 
Incisos, encontrará a lo largo del libro y con los que 
Incluso los principlantes podrán seguirlo sin mayor 
difleuItad. 
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A ello también contribuye la estructura propia de los 
programas, ya que después de cada paso vera de forma 
práctica la exactitud de las correspondientes explicaciones. 

Así pués, vamos a programar al mundo donde transcurre la 
aventura. A continuación buscaremos la forma de facilitar 
los movimientos al Jugador o y también como proporcionarle 
los objetos que deberá utilizar. 

Otro capítulo le Iniciará en los secretos de la 
programación de aventuras. Encontrará también proposiciones 
adicionales sobre la manera de hacer la vida Imposible al 
jugador y además,en este capítulo hallará Instrucciones 
exactas con las que cualquier aventura confeccionada en 
texto puede ampliarse como aventura gráfica. 

Y para que la configuración de gráficos no sea muy 
costosa, también dispondrá del listado de un programador 
gráfico que creará los subprogramas necesarios para usted. 

Sin embargo, aparte de este programa auxiliar, con el 
listado del ’ventureflx* también ponemos a su disposición un 
generador de aventuras, que le permitirá crear programas, 
aunque haya adquirido hoy mismo su ATARI y no tenga 
conocimientos de su programación. 

Y en el caso de que usted prefiera antes que nada, jugar 
unas cuantas aventuras, en el último capítulo encontrará las 
aventuras en texto 'Fiebre del oro' y *EI castillo 
encantado', así como un listado de la aventura gráfica 
'misión espacial'. 

Supongo que preferirá ocuparse del verdadero tema de esta 
obra antes que leer un prólogo extenso. Así que, de momento. 
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ÁVI.NTURAS, son unas experiencias extraordinarias de una 
panana» caracterizadas por una serle de situaciones 
a»framo» y peligrosas, que se graban para siempre en la 
dol aventurero. 

I Jareen una gran Influencia sobre el ser que está 
Implicado en ellas y fascinan desde tiempos remotos Incluso 
a lo» que no las han vivido directamente. La poesía se 
aprovechó de ellas y así se desarrollaron diversos géneros 
I Murar los del Juego. 

litando en un principio los trovadores los que relataron 
la» hazañas de héroes lejanos, estas narraciones juglarescas 
filaran convirtiéndose en poemas épicos, tales como 
•l an/alot* o el *ParzIfal* de Wolfram von Eschenbach. 

A»lml smo *Don Quijote* y *Munchhausen* entusiasmaron 
Ifimlilén a miles de personas. 

I)a»pués de la época de la novela picaresca, el tema de la 
avanlura se utilizó en narraciones de viajes (Defoe, Cooper, 
►lü I May), hasta que su desarrollo llegó con las novelas 
nagt A» y de ciencia ficción. 
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aventuras hoy 


¿ Quién no conoce las novelas de aventuras mencionadas en la 
página anterior? quien no se ha entusiasmado con las 
aventuras de Oíd Shatterhand o Robinson Crusoe? -¿ Quién no 
se ha Identificado con los protagonistas y se ha Imaginado, 
su propia reacción en situaciones Idénticas ? 

Puede que usted sea una de las pocas personas que por 
razones de comodidad, nunca han leído un libro de este 
género. ¿Qué necesidad había de hacerlo?, se preguntara, 
¡puedo conseguirlo de forma más cómoda!. 

He visto en la televisión, Buffalo Bill y Tom Sawyer 
varias veces gracias a los directores de programación de 
nuestras emisoras. Entonces, ¿ por qué desaprovechar así mis 
horas de ocio, si también pueden hacerse otras cosas? 
Además, leer ya ha pasado de moda. 

Cierto, probablemente tenga razón con el último argumento. 
Si antes las habitaciones de los niños estaban llenas de 
muñecas, cajas de construcciones, trenes eléctricos o libros 
Infantiles, hoy están llenas de modelos teledirigidos, cajas 
experimentales, videos, te lejuegos y ordenadores personales. 
También aquí la técnica ha avanzado IrresItibí emente, y es 
de agradecer si se utiliza con corrección. 

Seguramente habrá usuarios de ordenadores que solo conocen 
batallas espaciales realistas y otros juegos de tiros y 
acción como única aplicación. Pero también estos usuarios 
algún día se darán cuenta, de que el proceso del Juego ^s 
siempre el mismo. No se necesita pensar - tan sólo el ritmo 
del movimiento de las teclas de control varía un poco de un 
juego a otro. 

Si se examina nuevamente el mercado del software, se llega 
a la conclusión de que los propietarios angloamericanos de 
ordenadores están mejor servidos; pues, además de 
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los conocidos Arcade-Games, los juegos de aventura también 
se comercializan en Inglaterra y America. 

Las Aventuras, en Inglés adventures, suponen seguramente 
la aplicación más Inteligente del ordenador para fines 
lúdlcos, aparte de los Juegos estratégicos como ajedrez o 
Othello. 

Estos programas permiten a propietario vivir sin grandes 
riesgos ni gastos, las más Interesantes aventuras, en las 
que Incluso lo Imposible puede ser lo normal. 

Imagínese un androide al que puede dirigir con 
Instrucciones escuetas cualquier tipo de peligro, y al que 
puede dar Instrucciones que ejecutará en su lugar y que 
decidiendo sobre la victoria o la derrota. 

Ordene que vaya hacia una dirección determinada, y 
seguidamente le Informará sobre lo que ve en su nuevo 
paradero, o le comunicará que desgraciadamente no existe 
ningún camino en la dirección deseada. 

Hágale Inspeccionar detenidamente las cosas que encuentre, 
ordene si le parece oportuno, que recoja estos objetos. 

Finalmente, en vistas de conseguir el objetivo del Juego, 
usted creerá haber encontrado una aplicación razonable para 
cada uno de estos objetos, haciendo reaccionar debidamente 
al androide. Disfrute su triunfo y, de que manera este juego 
le ha cautivado y alejado del mundo real. 

SI ha cargado un juego de aventuras en la memoria de su 
ordenador, no sólo dispone de unas cuantas pantallas 
coloreadas para su juego, sino que se mueve en un mundo 
completamente equipado, un mundo que sólo esta esperando, 
que usted descubra y resuelva sus secretos y enigmas. 
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Un buen juego de aventuras le permitirá actuar como en la 
vida real, esto quiere decir, que acciones y reacciones se 
relacionan de forma habitual, y que experiencias de la vida 
también resultan lítl les en el juego por ordenador. 

Descubrirá que Incluso una acción que se realiza 
diariamente, como el abrir una puerta, puede presentarle 
dificultades que se anuncian con la emisión de un mensaje 
tal como *¡No tengo la llave correspondiente!*. 

Incluso puede ser necesario recurrir a la magia para 
obtener la respuesta *0.K. - la puerta está abierta.*, 
puesto que sólo la fantasía del programador establece los 
límites entre lo posible y lo Imposible. 


Por otra parte, el juego de aventuras también puede 
utilizarse como medio de enseñanza. Así se puede confeccionar 
por ejemplo, una aventura equipada con los datos de nuestro 
sistema solar, que nos permita explorar el espacio 
cómodamente sentados en nuestro sillín favorito. 

¿ Qué método podría ser el más adecuado para enseñar tanto a 
niños como a adultos deseosos de adquirir conocimientos 
generales o específicos? 


Sea como sea, tanto si un juego de aventuras ha sido 
escrito para servir como programa de juego, como si sólo se 
ha pretendido utilizarlo para el entretenimiento, ya no es 
suficiente tener una buena capacidad de reacción para poder 
superarlo. 

Necesitará un entendimiento agudo y una capacidad de 
razonamiento lógico para poder superar los numerosos 
peligros que se presentan en la vida de un aventurero: 
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¿ Cómo quiere pescar un pez para que no tenga que morir de 
hambre f si sólo dispone de sus manos para hacerlo? 

I Cómo puede evitar que el oso hambriento le considere una 
suculenta merienda? 

¿ Cómo puede cruzar un rio tormentoso que además está 
poblado de prehistóricas fieras salvajes? 

Todos estos problemas pueden solucionarse razonando un 
poco, sólo necesita disponer de las Ideas adecuadas y tener 
mucha fantasía: 


Su misión consiste en conseguir Introducirse en una 
determinada casa, cuya entrada estd asegurada por un portal 
enrejado. Fijándose bien usted divisa una llave a unos 
cuantos centfmetros detras de la verja, pero sus brazos son 
demasiado cortos para poder coger la llave a través del 
porta I• 

¿Cómo puede entrar en la casa? 

Saltar la verja no es posible, pero a unos pocos pasos de 
la casa, usted vío unos árboles. En algún momento encontró 
además un chicle. 

¿ Ya se ha dado cuenta? 

Nosotros también hemos tardado un poco en encontrar la 
solución a este problema, naturalmente nadie nos ha Indicado 
de forma tan clara los objetos que pueden ser útiles: 

Sólo era necesario dar una vuelta alrededor del árbol y 
arrancarle una rama. Con ella se había de retroceder 
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hacia la entrada de la casa, mascar bien el chicle, pegarlo 
a un extremo de la rama, y hacer pasar a esta a través de 
las rejas del portal y se tocando la llave, con lo que ésta 
se adheriría al chicle. Retirando el palo con cuidado, se 
podía conseguir finalmente la llave. 

¡Qué suerte el que esta llave abriera el portal después! 


Esta ha sido una solución elegante, pero no demasiado 
fácil, aunque el programador ya la había planeado de esta 
manera en los trabajos de confección del juego. Sin embargo, 
yo debería añadir, que en las Instrucciones que acompañan a la 
aventura se prevé un mínimo de experiencia de Juego. 


Quizás el ejemplo expuesto anteriormente ya le haya 
afectado el ánimo de aventurero. Pero si el poder de la 
palabra escrita aun no ha conseguido fascinarle, lea 
detenidamente la "Historia Interminable". 


¿Qué posibilidades de superación resultan en un sistema de 
ordenador de la Implamentación de buenas novelas? 
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Quizás algún día resulte necesario ampliar la definición del 
término "aventura” en nuestro diccionario; 


En el siglo 20, la técnica moderna de la 
Informática proporcionó la novela de 
aventuras para participar en ellas a 
través del Juego. Como punto de partida 
sirvió "Adventureland” de Scott Adams. 

Le seguíeron otras muchas aventuras 
que evolucionaron hasta una perfecta 
simulación del mundo. Numerosos autores 
de novelas de prestigioso nombre (por 
ejemplo Michael Olghton) se dieron 
cuenta a tiempo de las nuevas posibili¬ 
dades, y con sus obras consiguieron 
para mucha gente el equilibrio necesario 
en la vida cotidiana. 
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HISTORIA Y DESARROLLO DE LAS AVENTURAS 


Después de que la primera máquina calculadora se 
convirtiera en un ordenador, en el mundo de la programación 
se realizaron los más variados esfuerzos para enseñar a los 
ordenadores las formas humanas de pensar y de 
actuar.FI na I mente en el año 1966, finalmente, Joseph 

Welzenbaum del Massachusetts Instituto of Technology alcanzó 
con su programa EL IZA, no sóío los expertos, sino también, 
públIco en general. 

EL IZA, que actualmente también se puede adquirir en 
versiones reducidas para cualquier tipo de microordenador, 
simula a un psiquiatra e Imita su técnica conversacional 
típica. En ensayos realizados con personas a modo de prueba, 
éstas se mostraron muy sorprendidas, por haber confiado sus 
problemas personales a una máquina. 

El desarrollo ulterior de la Inteligencia artificial 
ofreció a los científicos técnicos un programa Implementado 
en un PDP-IO: ADVENTURE - Colossal Cave. Para variar, estos 
sabios podían Investigar en otro campo, que era el de los 
tesoros de un mundo oscuro dominado por la magia. Colossal 
Cave disfrutó de una gran popularidad en medios técnicos y, 
en verano de 1979, se presentó finalmente al público. La 
empresa MICROSOFT, conocida actualmente en todo el mundo, 
publicó Mlcrosoft*s Adventure, una versión en diskette de 
estas aventuras primitivas destinadas al TRS-80, el más 
popular microordenador en América en ese momento. 

Sin embargo, las aventuras se conocieron ya en el año 1978 
por un joven americano llamado Scott Adams, que con su 
ADVENTURELAND crea la base para el nuevo ADVENTURE 
INTERNATIONAL. 

También en este juego se basa en encontrar tesoros dentro 
de un mundo Irreal, aunque naturalmente dificulta 
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con la presencia de dragones, laberintos, ríos de lava y 
demás singularidades, habiendo empezado Inocentemente en un 
bosque. Pero una vez se ha orientado y sabe hacia qué 
dirección debe dirigirse, y si además se encuentra la 
entrada que conduce hacia el Imperio subterráneo, 
entonces... 

La demanda por ADVENTURELAND era Inmensa, seguramente 
debido a que todavía no existían juegos con la calidad 
propia de los juegos de salones recreativos. Debido a este 
gran éxito, el ADVENTURELAND se convirtió rápidamente en una 
serle de 12 aventuras, procurando siempre mantener despierto 
el Interés del cliente con la elección cuidada de los temas. 

¿Ha soñado alguna vez con enfrentarse al conde Drácula? Pues 
puede hacerlo en ”The Count”. ¿o prefiere tropezar con un 
saboteador en una central de energía atómica? No hay ningún 
problema, **MIssIon Impossible''se lo permite. 

Durante este tiempo, en el mercado americano de software 
apareció en el mismo nivel un tipo de programa que se llamcT 
**INTERACTIV FICTION**. Estos programas debían representar 
un nuevo género literario que, tal como Indica su nombre, 
serán libros para colaborar de forma activa. En principio, 
el jugador sólo es un simple lector, que ha sido Introducido 
con precisión en la acción. Numerosas páginas se muestran en 
la pantalla. Informado al lector sobre los antecedentes, 
situaciones actuales, causas, etc., y que pueden ser leídas 
Igual que un libro. 

"Local Cali For Death” comienza como una historia 
criminal: tres hombres se encuentran en su club en el 
transcurso de la noche, uno de ellos es llamado al télefono. 
Es el sobrino visiblemente Irritado, que pide dinero al tío. 
Sin embargo, el tío se niega, sabiendo por experiencia, que 
este dinero servirá para efectuar apuestas en las carreras. 

A la mañana siguiente, se 
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se entera del suicidio de su sobrino 


A partir de este momento, el jugador entra en acción 
representando el papel principal. Intenta aclarar el 

presunto suicidio conversando directamente con los 
protagonistas. 

La característica más destacada de estos programas es la 
existencia de un claro y único objetivo, como en este caso 
lo es el esclarecimiento de un asesinato. 

Para conseguirlo, los jugadores no deben servirse de 
objetos de cualquier clase sino de preguntas astutas. ¿Qué 
será más efectivo?: ¿leer un diálogo en un libro, seguir un 
Interrogatorio en una película, o disfrutar de la 

satisfacción de haber dado con el criminal ayudado por la 
propia capacidad de combinación? 

Precisamente esta facultad de diálogo es el principio que 
los Mnteractlv FIctlon* usan para estimular el juego. Una 
muestra ejemplar de ello es "Encounter In the Park”, 
aparecido también en Adventure International. 

En este juego uno encuentra a la mujer de sus sueños 
durante el paseo matutino; nuestro objetivo consistirá en 
seducirla hasta conseguir que nos de su SI definitivo. El 
programador pone a disposición del jugador un amplio surtido 
de técnicas persuasivas que le permitirán alcanzar sus 
deseos; es realmente divertido ver como reacciona la señorita 
ante determinadas proposiciones. 

Lo peor que puede ocurrimos si estas proposiciones son 
poco honestas es, que ella se aparte de nosotros Indignada y 
que se nos Informe de que, debido a la decepción ocasionada, 
pasaremos el resto de nuestra vida encerrados en un 
convento. 

Como ya se ha mencionado, el Interés por todos estos tipos 
de aventuras en texto fue creciendo progresivamente. Por 
ello, cada vez más empresas de software editaron coplas de 
estos juegos con distinta calidad 
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Estimulados por la creciente presión que ejercía la 
competencia, posteriores tabicantes de software crearon 
nuevos Juegos de aventuras. 

Aparecieron los primeros "LABYRINTH - ADVENTURES", donde 
el jugador tenía la misión de salir con vida de un edificio. 
El Juego solía terminar casi siempre con el Jugador perdido 
sin remedio en el laberinto representado en perspectiva en 
la pantalla. 

La próxima etapa de este desarrollo fueron los "QUEST - 
ADVENTURES”, que casi siempre fueron ImpIementados como 
aventuras de tiempo real. Además, este miembro de la gran 
familia de las aventuras produce al Jugador a un estado de 
stress, pues al aparecer algún ladrón u otros malhechores, 
el Jugador no pulsaba Inmediatamente la F para abrir fuego y 
seguía pulsando continuamente unas teclas cualquiera o 
Incluso combinaciones de teclas, que provocan que su espada 
apunte hacia una determinada dirección, el Juego termina 
relativamente pronto por el excesivo deterioro del personaje 
principal. 

Desgraciadamente, la forma en que estos Juegos están 
concebidos limita considerablemente el campo de acción del 
Jugador, ya que sólo dispone de una restringida capacidad de 
actuación con acciones de lucha,negocio,compra o huida, que 
le son ofrecidas utilizando el menú, condicionando el 
ape IatIvo QUESTIon (pregunta). 

La siguiente etapa en el desarrollo de los Juegos de 
aventuras fue posible gracias a la baja sufrida por los 
precios del los procesadores gráficos y de los elementos 
RAM. De esta manera, los fabricantes de ordenadores ya no 
tuvieron dificultades en proporcionar al usuario una 
económica capacidad gráfica para ordenadores, capacidad que 
hasta el momemto sólo era posible con equipos mucho más 
grandes y, en consecuencia, más caros. 

Así comenzó en el aÑo 1982 (para los usuarios de Apple un 
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poco antes) el nuevo apogeo de estos Juegos con la venta 
del primer ”GRAFIKADVENTORES” o aventuras gráficas. SI 
varías propietarios de ordenadores habían rechazado hasta 
este momento los Juegos en texto, ahora empezaban a mostrar 
Interés por su gran variedad de Imágenes en color. Incluso 
eran útiles para conseguir que la familia conocedora de 
Informática exclamara un sorprendido •*¡0h, ue bonito!** 
ante la pregunta "¿Qué puede hacer tu ordenador?** 

Naturalmente el valor propio del Juego y su objetivo no 
habían cambiado en nada. 

Sin embargo, de repente se podía acceder a otra clase de 
compradores, lo cual ya era una buena razón para lanzar al 
mercado todas las aventuras conocidas durante años pero 
disfrazadas de otro modo: habían desaparecido las 

explicaciones exhaustivas y, en su lugar, se habfan 
visualizado en la.pantalla las situaciones momentáneas • 

De todas formas no esta claro si los programas resultan 
más fáciles de manejar. Yo personalmente prefiero que un 
mensaje como 

Estoy en el bosque. A mi alrededor hay muchos árboles. 
Entre dos robles veo un agujero. 

me Indique Informaciones Importantes, a ver en su lugar, 
sólo unos cuantos árboles. Seguramente, en el primer momento 
los considerará como una parte más del bosque, por lo que 
seguramente seguirá adelante sin detenerme a examinarlos más 
de cerca, y sin distinguir por supuesto, el hoyo en forma de 
pequeña mancha negra que hay entre dos de el los. Como es 
lógico, precisamente en este hoyo es donde se encuentra una 
parte del teéoro buscado, o un objeto cuya posesión se hace 
Imprescindible para poder llegar con éxito al final de la 
aventura. 
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CAP ITULO 2 
- EL CONCEPTO 
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En los Próximos capí+ulos de esi*e libro crearemos un Juego 
de aventuras conjuntamente. Por supuesto, exigiremos que 
nuestra obra tenga una presentación lo más profesional 
posible, hecho que Impedirá prescindir del análisis de 
determinadas características y rasgos de algunos de los 
programas que se encuentran en el mercado. 

Acto seguido, nos preocuparemos de cómo debemos programar 
cada una de las funciones en BASIC. 

Para ello Intentaremos conseguir que las rutinas tengan 
una estructura tal, que no sólo permita utilizarlas en una 
aventura determinada, sino que también nos sirva en 
cualquier otro programa de juegos sin requerir grandes 
modificaciones. 


LA PRESENTACIÓN 

Ya hemos mencionado, que una aventura pretende situar al 
jugador en un mundo extraño, en un mundo donde se hace 

posible lo Imposible. En este mundo es donde vivirá las 

aventuras; por consiguiente, deberá tener capacidad de 
movimiento y actuación, y deberá ser Informado sobre los 

resultados de sus esfuerzos para que pueda proseguir con 

otras acciones. 

Sin embargo, una actuación razonable y precisa sólo es 
posible si se hace uso de los sentidos. Esto significa, que 
se deberá proporcionar al jugador, de forma adecuada, todas 
aquellas Informaciones que el aventurero percibe en la vida 
real 3 través de la vista, oídos y tacto. 

Puesto que hasta hoy no se ha conseguido conectar el 
cerebro humano directamente al ordenador, las respuestas a 
las preguntas •*¿Dónde estoy? - ¿Qué veo? - ¿Hacia dónde 
puedo Ir? - ¿Qué siento?’* deberán mostrarse en forma de 
frases cortas pero completas. 

Sin embargo, la adaptación al ambiente que rodea al 
jugador pocas veces ocurre de manera consciente ya que el 
contenido de los distintos lugares son registrados en 
décimas de segundo sin haberlos pedido específicamente. Por 
ello no se le puede pedir al jugador de la aventura que se 
entretenga en extensas explicaciones sobre el lugar en que 
se encuentra. 
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Pocas veces ocurre de forma consciente ya que los contenidos 
de los lugares son registrados en décimas de segundo sin 
haberlo pedido específicamente. Es por ello que no se le 
puede pedir al Jugador que se entretenga en extensas 
explicaciones sobre el lugar que acaba de pisar. 

Incluso no siendo necesarios más de cinco o diez segundos 
en la lectura de algunas líneas de descripciones, la 
concentración requerida detendría la buena marcha del 
programa e Impediría que el jugador se Identificase con el 
personaje del juego entergandose a las Ilusiones de un mundo 
Imaginarlo. 

Para evitar este problema, se limita la salida de texto a 
un mínimo aceptable de Informaciones, que se presentan, si 
no se trata de aventuras gráficas, en dos zonas claras de la 
pantalla, cada una de las cuales tiene una determinada 
función. 

De esta manera, la parte superior de la pantalla nos 
Informa sobre el lugar en el que nos encontramos y sobre lo 
que divisamos, mientras que la parte Inferior se destina a 
la comunicación con el personaje principal que actúa por 
nosotros. Es aquí donde Indicaremos nuestras Instrucciones y 
nos enteraremos de lo que ocurre a consecuencia de ellas. 

Una típica Imagen de pantalla podría ser: 


Estoy en un bosque oscuro. 

Veo muchos árboles viejos. 

Puedo Ir al Norte, Este, Oeste. 


l Qué debo hacer? 
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SI lo que pretendemos es avanzar en el juego lo más rápido 
posible, sería erróneo por nuestra parte continuar la marcha 
en cualquiera de las tres direcciones. 

Lo más razonable que puede hacer un jugador de aventuras 
en situaciones que desconoce, es Investigarlo todo a 
conciencia. Así, las posibles respuestas a la Instrucción 
*’Investiga árbol** podrían ser como: **Se trata de un 
roble.** o **Aquí también se propaga la extinción de 
árboles.* * 

Estas respuestas no nos solucionan ningún problema, ya que 
sólo parecen demostrarnos, que no siempre es tan Interesante 
el Investigarlo todo. Pero, ¿cómo saberlo con antelación a 
las , respuestas? También podría haberse dado una respuesta 
como **En un tronco veo un orificio** Quizás se trate de un 
viejo nido de un pájaro carpintero en el que se encuentra 
precisamente una parte del tesoro buscado. **Investiga 
orificio** podría descubrirlo. 

En el caso de que no hubiésemos encontrado ningún punto de 
referencia, ni a la Instrucción **Investiga bosque** - 
podría tratarse de un bosque mágico - deberíamos 
preguntarnos en que dirección queremos Ir. 

¿Cómo se comportaría usted en una situación parecida, sin 
mapa ni compás, desamparado y sólo, lejos de cualquier 
camino ? 

Posiblemente subiría a un árbol para ver que hay en las 
Inmedlaciones. 

Por consiguiente, debería entrar: **Sube a un árbol**, y 
si no recibe un mensaje de la forma **¡No soy lo bastante 
deportista para ello!**, se modificará la Imagen de su 
pantalla: 

Estoy en la cima de un viejo roble. 

Veo montanas en el Norte, 
un lago en el Este, 
del Oeste sube humo. 

Puedo Ir hacia abajo. 
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SUDE A UN ARBOL 


¡O.K.! 


IQué debo hacer? 


Con esto la cosa mejora , ya que tras la entrada de ”A" 
para Indicar abajo, sólo nos queda solucionar el problema 
sobre la zona que visitaremos primero. 

El mensaje •*¡0.K!** debe Informarnos de que la 
Instrucción entrada ha sido entendida y ejecutada. SI no 
fuera así, habríamos recibido por ejemplo, **¡No entiendo el 
verbo!**, con lo cual el programa nos Induciría a cambiar la 
forma de la expresión. Lo mismo sirve, naturaIamente, para 
el objeto de nuestra Instrucción. 

Sin embargo, también podemos suponer otras dos respuestas. 
Por un lado recibiremos a menudo, el mensaje **l must be 
stupld, but... -¡No entiendo lo que quieres decir !’*, con 
lo cual el programa nos comunica que encuentra nuestra 
entrada muy poco razonable, como lo sería sin duda en caso 
de entrar una Instrucción como **Mata árbol**. Esto 
significa que esta acción no esta prevista en el juego. 

Algo parecido ocurre con la segunda respuesta estándar 
**You can*t do that ... yet. - Esto no es posible de 
momento.*’, que nos Indica que las palabras empleadas 
pertenecen al léxico programado, pero que la Instrucción 
carece de sentido en este momento: el programa del juego 
sólo entiende *'Coge llave**, si aparece una llave en la 
aventura y sin embargo^ éste mensaje pierde sentido mientras 
no se encuentre una llave en el mismo lugar donde éste 
situado el jugador. 
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A pesar de ello podemos tener éxito, puesto que si 
obtenemos esta respuesta vamos por buen camino; sólo falta 
cumplir algunas condiciones más, que se necesitarán para 
ejecu+ar la Instrucción. Así podrá abrirse una puertd 
cerrada si conseguimos el Instrumento apropiado para el lo. 
SI por el contrario, la respuesta a "Abre puerta" hubiese 
sido "No entiendo lo que quieres decir", todo esfuerzo sería 
lndtlI. 


PREMEDITACIONES 

Ahora ya estamos familiarizados con la estructura general 
de los juegos de aventuras. Ya tenemos una Idea de como debe 
presentarse nuestra aventura en la pantalla y qué 
Informaciones deben prepararse. A continuación vamos 
ocuparnos más de cerca de cada uno de los elementos que 
componen nuestro sistema de aven hura, y elaborar una 
concepción que se realizará en el capítulo siguiente. 


Lugares de la aventura: 

El mundo de la aventura se compone de los lugares 
concretos de cada juego, esto significa, que cada uno de los 
sitios accesibles por el jugador que atraviesa la aventura 
recibe el nombre de lugar. Su tamaño no tiene ninguna 
Importancia. Puede ser, como en nuestros ejemplos 
anteriores, un bosque o la cima de un árbol, pero también 
puede tratarse del Interior de un coche o de un armarlo. 

Cada lugar se distingue para el Jugador a través de sus 
descripciones y de su disposición geográfica. En cuanto a la 
técnica del programa, van a distinguirse por su námero de 
lugar, como veremos más adelante. 

Todos estos lugares son accesibles para el jugador, por lo 
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que deben estar comunicados de manera apropiada. En cada 
aventui'a se permite el movimiento hacia los cuatro puntos 
cardinales Norte, Sur, Oeste y Este; algunos incluso admiten 
el movimiento en vertical. 

Naturalmente no debe ocurrir, que el jugador abandone el 
lugar 5 en dirección Oeste, entrando en el lugar 6 por el 
Este y, si desea volver a entrar en lugar 5, no encuentre 
ningún camino en dirección Este, o peor todavía, si con un 
movimiento hacia abajo vuelve a acceder al lugar 5. 

, Para prevenirse de la crítica de aventureros 
experimentados, también en este caso la excepción confirma 
la regla, pero ¿que sería de una aventura sin un laberinto 
mágico? 


Objetos 

Otros elementos típicos de cada lugar son los objetos que 
se encuentran en él. Debemos colocar todos los objetos 
correctamente en los lugares o, dicho más correctamente,a 
cada objeto le corresponde un lugar. En esta asignación 
evitamos automáticamente, que algún objeto exista 
doblemente. 

Otro problema se nos presenta con la colocación de 
aquellos objetos que no pueden encontrarse en la aventura al 
comenzar el juego. ¿Dónde podemos guardarlos hasta que 
deban hacer su aparición? 

Supongamos que nuestro héroe entra en un lugar y que, como 
objeto visible, sólo encuentra una vieja caja de madera 
cerrada. 

Reaccionando a la Instrucción del jugador ”Abre la caja”, 
todas las reglas de la lógica Imponen, que la vieja caja 
cerrada desaparezca de la pantalla, y que en su lugar 
aparezca una vieja caja abierta posiblemente llena de 
monedas de plata. 
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Así pues, la solución a este problema no nos presentará 
demasiadas dificultades. Instalaremos en nuestra aventura un 
lugar adicional, el **almaceú**, donde guardaremos todos los 
objetos no utilizados de momento. SI no programamos ninguna 
comunicación hacia este lugar, él jugador tampoco podrá 
acceder nunca a él ni entrar en contacto con los objetos 
correspondientes de manera indeseada. 

En el próximo capítulo veremos lo fácil que es programar 
el almacén y también el completo mundo de la aventura. 
Además veremos también en el transcurso del libro, la 
necesidad de disponer de otros lugares especiales. 


Entradas 

^Tal como resulta del texto precedente, las entradas del 
jugador suelen estar compuestas de un verbo y un objeto. 
Esto significa que nuestro programa deberá comprobar 
primero, si una entrada esta admitida o no, para lo cual 
será necesario separar el verbo del objeto. Si el jugador se 
ha equivocado, o si el verbo utilizado no está previsto, 
deberá efectuarse un mensaje consecuente. Cuando nuestro 
juego de aventuras haya encontrado en su léxico el verbo 
entrado, deberá comprobar el objeto de la misma manera. 

Si ambos términos están definidos, el programa podrá 
reaccionar de la forma Impuesta. 

Por lo demás, el programador debe proceder con especial 
precaución en la confección de este léxico. Deberá preveer 
todas las posibles entradas que cualquier jugador puede 
efectuar a lo largo dol juego. 

Lo difícil que puede resultar precisamente esta empresa, 
me 
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lo demostró hace poco uno de mis amigos, que nunca antes 
había Jugado una aventura. Después de estudiar la Imagen 
titular junto con las Instrucciones más esenciales, este, 
quería resolver todos los problemas Instantáneamente con la 
Instrucción "Encuentra tesoro”, una entrada que yo, como 
programador, no había previsto por supuesto. 

también se hará necesaria la Introducción de sinónimos, ya 
que si el Jugador se entretiene demasiado tiempo para 
exponer sus deseos , perderá rápidamente el Interés en ello. 

Sin embargo la elección de estos términos puede ser un 
problema para nosotros como españoles. Expresiones que en 
Inglés no representan nlngUn problema »»CIImb tree**, 
•*Shoot gun**, «’Drop box»', "LooR", no quedan tan claras 
en castellano: ''Trepa árbol", "Dispara rifle", "Pon 
caja", "Mira". 


Mensajes 

La primera Impresión en pantalla, después de las 
descripciones del lugar. Informa al Jugador sobre los puntos 
cardinales en cuyas direcciones puede volver a abandonar el 
lugar de acción. 

Por otra parte, también se debe aclarar al Jugador la 
ejecución de cada acción, así como una posible reacción que 
pueda producirse en consecuencia. En el caso más simple, 
esto sucede a través de "O.K", pero en la mayoría de los 
casos se Añade la emisión de mensajes adicionales. A veces, 
las entradas más diversas pueden requerir la misma repuesta. 
Precisamente por esta razón, estas respuestas deberían 
confeccionarse en una lista y ser estandarizadas. Así por 
ejemplo, pueden aparecer con cierta frecuencia respuestas 
como "No tengo tanta fuerza.", o "¡Esto no tiene ningún 
sentido!'' y '*¡No entiendo lo que quieres decir!''. 


32 


FUNCIONES DE LAS AVENTURAS 


En un Juego de aventuras encontramos un promedio de 30 - 
50 lugares diferentes, y en cada lugar hay uno o dos 
objetos. Estos objetos pueden contener por su parte, 
cualquier cosa, y como en una aventura no se sabe nunca 
exactamente lo que se necesitará un par de Jugadas más 
adelante, muchos Jugadores tienden a llevarse todo lo que 
les cae en las manos , que no sea demasiado pesado para 
I levar lo a cuestas. 

Con todo ello resulta bastante difícil acordarse de cuanto 
llevamos, ya que nos hemos vuelto muy cómodos y 
naturalmente, no tomamos notas. 

Los programadores se dieron cuenta muy pronto de este 
hecho, y así actualmente cualquier aventura muestra en 
pantalla todos los objetos acumulados, después de entrar la 
instrucción 'INVENTARIO*. 


SI se trata de un Juego de aventuras simpático o escrito 
especialmente para principiantes, podemos pedir consejos en 
situaciones complicadas, ya que entonces está Implementada 
la instrucción 'HELP* -* 'Socorro*. 

Al contrarío de la entrada estándar Izada compuesta por 
verbo y objeto, aquí se trata, al Igual que en balance, de 
una Instrucción de una palabra, que en este caso no provoca 
siquiera una reacción. 

Pero esta instrucción puede tener algunas consecuencias: 

* * Yo lo examinaría todo** nos Indica nuestra negligencia; 
el mensaje "Aparece una figura mágica y escribe la frase 
'Abrete sésamo* en la arena", en cambio, nos hará dar un 
salto de alegría en una situación complicada. 

El asunto adquiere peor aspecto si hemos de pagar por la 
ayuda: 'Aparece un ogro y dice que perdemos 10 puntos por su 
ayuda. Quiere saber si necesitamos ayuda*. 
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Probablemente aparecerán nubes oscuras en el cielo, si en la 
entrada de socorro obtenemos la respuesta siguiente: 
**¡Socorro no está previsto en esta aventura !•*, o si sólo 
se repiten Instrucciones generales de juego como respuesta* 

Es naturalmente molesto, cuando no se puede avanzar en una 
situación a pesar de todos los esfuerzos realizados* Sin 
embargo, nadie debería considerar los dos últimos ejemplos 
como actos de malicia; si la función de socorro se admitiera 
continuamente, algunos jugadores muy Inteligentes 
resolverían la aventura en menos de 30 minutos, pero sin 
llegar a conocer nunca la fascinación que estos programas 
comportan* 

Por esta razón, algunos programas cuidan el uso de esta 
función , niegan finalmente cualquier ayuda o conducen al 
jugador a pistas falsas, si se pide socorro con demasiada 
frecuencia* 


CAPITULO 3 
- LA REALIZACION - 


35 









Antes de empezar con la programación, quisiera darle 
algunas referencias de tipo más bien técnico, que deben 
contribuir a que no se pierdan las ganas de trabajar con 
este libro por la aparición de algún error. 

Seguramente, las próximas líneas de programa no serán las 
primeras que usted entre con esfuerzo a través del teclado, 
y habrá adquirido la experiencia de que siempre vuelven a 
aparecer errores al teclear. 

Hay determinadas líneas DATA que parecen estar 
predestinadas a errores de esta clase, especialmente si no 
contienen más que cifras, como en este caso. 

Por otra parte, es Imprescindible que algunas líneas sean 
Introducidas exactamente tal como están Imprimidas aquí. 
Esto es válido, sobre todo, para el número de blanks 
(espacios) en los strlngs (variables de cadena). 

Para proporcionarle una efectiva posibilidad de control, 
todos los listados de este libro se han Imprimido de la 
manera que usted deberfa verlos en la pantalla después de la 
entrada de LIST. 

Cuando tenga la Impresión de que alguna cosa no funciona 
como estaba previsto, primero las letras que se encuentran 
en el extremo derecho de cada línea. SI no coinciden con las 
del libro, posiblemente ya habrá detectado el error. 

Por otra parte debería emplear solo los números de línea 
Indicados para que mantener la capacidad de 
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funcionamiento de su programa. 

Esto es Importante, puesto que en el ulterior desarrollo 
se Intercambiarán algunas líneas de programa y se 
Introducirán algunas rutinas adicionales. 

Se ruega además, que los propietarios de ATARI 600 XL 
tengan en cuenta las referencias del apéndice. 
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LA IDEA DEL JUEGO 


Hemos Intentado reducir al mínimo la teoría, y todo lo que 
falta es una historia que deseamos realizar como Juego de 
aventuras. Entonces ya podemos conectar nuestro ATARI y 
comenzar con la práctica. Quizás usted tenga una Idea 
determinada sobre su primera aventura, si no, puede 
Inspirarse en las propuestas siguientes. 


1. LA CASA FANTASMA 

Usted recibe la última carta de su tía, donde se 
especifica que le deja en herencia su vieja residencia 
señorial. Su tía le llama la atención en su comportamiento, 
para que no le ocurra lo mismo que a su tío. Sin embargo, 
observaciones de esta clase no le retienen y usted va a ver. 
la casa. Allí descubre una bibllloteca secreta con libros 
sobre conjuros, y un lugar d« ofrendas en el sótano. 
Numerosos fantasmas le hacen la vida Imposible, hasta que al 
fin se entera, que uno de sus antepasados había asesinado al 
líder de la secta para aumentar su próplo poder, y que por 
ello recibió el castigo de ser enterrado vivo en un muro. 
Ahora, usted le quiere proporcionar el descanso eterno. 


2. EL LEGADO DEL VIEJO 

Su amigo y vecino, un famoso científico, ha perdido la 
vida en circunstancias misteriosas. Usted recibe una noticia 
suya, en la cual se le ruega que termine la obra de su vida. 
Después de conseguir entrar en su laboratorio hasta ahora 
secreto, su misión consiste en poner en marcha su 
superordenador. Este le dará entonces, más Instrucciones. 
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3, ODISEA ESTELAR 

Su nave espacial sufre tantos desperfectos por una 
tormenta cósmica, que se ve obligado a aterrizar en una 
estación sin tripulación, para conseguirse piezas de 
recambio y poder volver a la Tierra. 


4. FIEBRE DE ORO 

Usted tropieza er la selva con un hombre viejo y herido de 
muerte. Este le informa sobre su mina de oro. Le muestra 
algjnas piezas de oro y le explica, que ha escondido oro en 
otros siete lugares deíferentes de la mIna.E! ya no lo 
necesita y da autorización para ir a buscar el oro. 

Quisiera tomar esta última propuesta, una aventura del tipo 
busca del tesoro, como base para el próximo capítulo de este 
libro, y desarrollarla Junto con usted* Naturalmente, usted 
es libre de realizar una idea propia, sin embargo, siempre 
volveré a hacer referencia a "Fiebre del oro" en todas las 
ampliaciones que le presentaré de aquí en adelante. 
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LA FORMACION DEL MUNDO 


Con la elección del tema, el recorrido de la aventura ya 
está definido en términos generales. Ahora vamos a 
desarrollar algunas estructuras aisladas y las refinaremos 
cada vez más hasta llegar a crear un mundo totalmente 
previsto. 

Procederemos de forma idéntica en la programación, 
construiremos paso a paso nuestra aventura y nos 
aseguraremos cada vez del correcto funcionamiento de cada 
una de las rutinas. 


EL MAPA 

Al principio soló existe la nada. A partir de aquí 
crearemos un mundo Idoneo para nuestro Juego. El tema del 
juego determina lo que nuestro mundo deberá ofrecer. La 
fiebre del oro tendrá lugar probablemente en unas minas. 

Imaginémonos esta mina: un despeñadero escabroso lleno de 
rocalla, un cobertizo con herramientas, canales de madera 
que conducen el agua necesaria para el lavado de oro desde 
un pequeño arroyo de la montaña, troncos de madera quebradizos 
y secos que rodean la entrada sombría y pasadizos oscuros 
llenos de peligros. 

Seguramente se nos ocurrirán fácilmente numerosas otras 
imágenes por el estilo, que nos permitirán encontrar una 
cantidad suficiente de lugares para las acciones previstas. 

Quisiera limitar este ejemplo concreto sólo a seis lugares 
de momento. Empezaremos con una excursión a través 
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de un bosque hasta que lleguemos a una mina, donde nuestra 
misión consiste en buscar los tesoros. 

#i hemos fijado el comienzo provisional de la 

fiebre del oro. Pero para poder decidir sobre el éxito o el 
fracaso del jugador, también debemos fijar un final 
V ctorloso del juego, además de definir naturalmente varias 

situaciones perjudiciales durante el desarrollo de nuestro 
proyecto• 

Asr podemos contentarnos con la búsqueda de todos los 
tesoros, aunque también podemos plantear al jugador la 

1 lugar seguro el tesoro hallado. 

Pero de momento, nos limitaremos a encontrar el oro. 

Ya hemos fijado misión y objetivo, así como dos lugares 
esenciales de la acción. Por un lado tenemos el bosque, 
onde se Inicia la aventura, construido a partir de dos 
lugares, y por otro lado tenemos la mina. De todas maneras 
sabemos perfectamente, que no podemos crear ninguna acción 
este reducido mundo. Necesitamos sitio para poder 
JugadÍ!^ ^ tenderle algunas trampas al 

Tampoco es normal, que unas minas empiecen entre las 
a ces unos árboles. Debemos crear transiciones adecuadas 
del paisaje, para que el juego tenga una configuración real. 

Con tres lugares más disponemos de suficiente sitio para 

Ahora*!o7°"°. de nuestra aventura. 

Ahora podemos formular una lista de todos los lugares que se 
presentan; 

en el bosque 
en el bosque 

linde del bosque limitado por un despeñadero 
un claro del bosque 
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claro del bosque en una vertiente 
Entrada a las minas 


El siguiente paso hacia el programa terminado, es la 
elaboración conveniente de un mapa en el que se representen 
todos los lugares en forma de rectángulos. Estos rectángulos 
estarán numerados y provistos de su correspondiente 
descripción, donde ya nos preocuparemos por una formulación 
adecuada y donde consideraremos en lo posible la longitud de 
línea de 38 caracteres que querremos utilizar con nuestro 
Atarl. Así, nuestra descripción debe poder añadirse sin 
problemas al texto preliminar ”Estoy”. 

El número que recibe cada lugar no tiene ninguna 
Importancia. Debemos empezar por el uno y continuar contando 
en orden creciente, con lo cual también evitamos la doble 
numeración. A continuación conectamos los lugares entre si y 
anotamos el punto cardinal correspondiente en cada límite. 

En este mapa podremos leer ahora sin más problemas, si el 
jugador se encuentra, por ejemplo, en el lugar 3, que se 
provocará emitir la siguiente Información en la pantalla: 

Estoy en el bosque. Delante de mi se alza un despeñadero 
abrupto. 

Además, nuestro mapa nos da Información sobre las posibles 
direcciones en que podremos movernos: 

Puedo Ir hacia Oeste, Sur. 


Ahora podríamos programar para cada lugar de nuestro juego 
una condición del tipo **SI jugador en lugar 3, Imprime 
'Estoy en el bosque. Delante de mi se alza un despeñadero 
abrupto* **, pero con ésto llenaríamos en poco tiempo la 


43 







memoria disponible 


Sin embargo, el principio es correcto MemorIzaremos todos 
los lugares en' una lista, y como acceder al elemento 
requerido en cada caso para la emisión de la descripción. 
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Primeramente, Indicamos las descripciones de lugar que 
deberán ser emitidas por pantalla: 


200 REM ******** descripciones DE LUGAR 


201 PRINT "EN EL 

202 PRINT "EN EL 

203 PRINT "EN EL 
DESPEÑADERO." 

204 PRINT "EN UN 

205 PRINT "EN UN 
VERTIENTE." 

206 PRINT "EN LA 
VIEJA MINA." 


BOSQUE." 

BOSQUE." 

BOSQUE, DELANTE DE UN 

aARO DEL BOSQUE." 
aARO AL LIMITE DE UNA 

BOCA DE ENTRAD\ DE UNA 


Tal como muestra la secuencia de un programa, los lugares 
ya constan en la memoria de nuestro ordenador. Ahora debemos 
encontrar una manera de acceder a ellos directamente. 

Para ello nos servimos de la técnica de la 
subprogramaclón, que se ofrece especialmente con los 
ordenadores Atarl por sus posibilidades de saltos 
condicionados. Vayamos a elaborar una subrutlna para cada 
uno de los lugares, que se encarga solamente de la emisión 
de sus descripciones. 

Un subprograma se llama normalmente, mediante GOSUB y se 
finaliza con RETURN. Ampliemos pués, las líneas 201 a 206, 
encargadas de los seis primeros lugares: 

200 REM *********DESCRIPC IONES DE LUGAR 

201 PRINT "EN EL BOSQUE.":RETURN 

202 PRINT "EN EL BOSQUE.":RETURN 

203 PRINT "EN EL BOSQUE DELANTE DE UN 

DESPEÑADERO.":RETURN 

204 PRINT "EN UN CLARO DEL BOSQUE.": RE 

TURN. 

205 PRINT "EN UN aARO AL LIMITE DE UNA 

VERTI ENTE.":RETURN 
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206 PRINT "EN LA BOCA DE ENTRADA DE UNA 
MINA,":RETURN 


La elección del lugar, sólo depende, naturalmente, del 
lugar donde se encuentre el jugador. El destino del salto 
corresponde por lo tanto, a la línea 200 más el número del 
lugar actual. 

Supongamos, que el jugador está en el lugar 3 (jugador=3), 
entonces, correspondiendo a la entrada de GOSUB 200+jugador, 
el AtarI Imprimirá la descripción correcta. 

Tras la entrada de las líneas siguientes, ya seremos 
capaces de Inspeccionar cada lugar: 

190 GOTO 1390 

1080 PRINT 

1110 PRINT "ESTOY ";:G0SUB 200+JUGAD0R 
1390 PRINT "JUGADOR EN QUE LUGAR 
INPUT JUGADOR 
5000 GOTO 1080 

Con ello se permite Investigar nuestro mundo, pero la 
forma, de continuar el movimiento no es satisfactoria. No 
quéremos saltar confusamente oe un lugar a otro, si no que 
pretendemos orientarnos de manera concreta con ayuda de los 
puntos cardinales. 

Normalmente, el lugar que el jugador acaba de pisar, suele 
tener un mínimo de una y un máximo de seis salidas. Al lugar 
1 limita en el Este el lugar 2; en las direcciones Norte, 
Sur y Oeste, así como hacia arriba y hacia abajo no conduce 
ningún camino. 

SI acordamos que las direcciones se Indicaran siempre en 
el mismo orden N, S, 0, E, arriba y abajo, el lugar 1 puede 
especificarse de la manera siguiente: 

1 en el bosque 
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Para ser más prácticos, no se marcan las salidas con una X, 
sino que se Indica explícitamente el lugar al que se puede 
acceder en esta dirección: 

1 en el bosque 0,0,0,2,0,0 

2 en el bosque 0,0,1,3,0,0 

Estos seis valores para cada lugar se memorizan en una 
variable, llamémosla PASADA. Como en este caso se sánala el 
lugar de entrada mediante dos valores distintos (lugar y 
dirección), es conveniente efectuar la memorización en un 
campo bidimenslonal. 

DIGRESION; VARIABLES & CAMPOS 

Para almacenar resultados Intermedios o datos de un 
programa, en todo tipo de lenguaje de ordenador se utilizan 
las variables. 

Estas variables se comportan como pequeñas casillas, en las 
que se puede depositar algo para su conservación. Estas 
casillas tienen nombres, como pueden ser maletero o cajón de 
escritorio. Existen además casillas del mismo tipo: en el 
escritorio, uno debajo de otro, cajón 1, cajón, 2, 3, etc. 
Cada casilla se llama cajón y sólo se distinguen por su 
número. Lo mismo ocurre en BASIC: Podemos dar un nombre 
distinto a cada variable, o asignar un sólo nombre y un 
número de Identificación a las del mismo tipo, colocando el 
^numero entre paréntesis detras del nombre de la variable. 

Podemos distinguir entre dos tipos esenciales de 
variables. Unas solo admiten números, números con los que 
también se puede operar; el otro tipo sirve para admitir 
textos. La configuración y la longitud de los textos no 
tiene Importancia, mejor dicho: permitiremos cualquier 
carácter del teclado y longitudes de hasta 32767 caracteres 
seguidos. Pero no debemos olvidar que hay que comunicar la 
longitud deseada al Interpretador, lo cual puede efectuarse 
con una 
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Instrucción DIM de la forma DIM TEXIS(longitud de cadena de 
carácteres). 

Algunos ejemplos de variables correctas serían: A, Al, A2, 
TEXTl (sólo para números), TEXIS (para textos), como 
variables simples; A(l), A(2), A(3) como variables 
Indexadas* 

Hay que destacar aquí, que el BASIC del Atarl no admite 
variables de cadena (strings) Indexadas. 

Quizás también haya observado, como algunas personas 
Intentan decorar sus viviendas con la colocación de cajas de 
Imprenta -que se crearon para guardar las letras de 
Imprentas- repletas de miniaturas. Como principlantes que 
somos. Imaginemos ahora cada una de estas casillas como una 
variable. 

La situación de cada casilla se determina exactamente 
mediante sus coordenadas fila y columna. Esto significa que 
si queremos conocer el contenido de la casilla (2,3), 
miramos la casilla que se encuentra en la tercera fila de la 
segunda columna. 

Esta disposición se llama campo bldimensional en el Idioma 
de ordenador, o también array. 

En una array como éste guardamos entonces, la Información 
sobre cada lugar, y a cada lugar se le asigna una fila 
propia. 0 sea que necesitamos seis columnas para Implementar 
la llamada travel - table o tabla de direcciones: 
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501 PASADA(1,1)=0:PASADAC1,2)=0 

502 PASADA(1,3)=0:PASADA(1,4)=0 

503 PASADA(1,5)=0:PASADAC1,6)=0 


Las líneas anteriores programan la pasada del lugar I 
hacia el lugar 2 en dirección Este. De la misma manera 
podríamos proceder con los restantes lugares, pero 
derrocharíamos mucha memoria con ello (Icuántas veces 
escribimos ‘pasada' ?), además de que no resulta agradable 
tener que teclear tanto. 

Por esta razón renunciamos a las líneas 501 a 503, y 
preferimos recordar en sü lugar las Instrucciones DATA y 
READ. 


INCISO: READ DATA 

Normalmente utilizamos la Instrucción INPUT para 
transferir datos a través del teclado a un programa que se 
está ejecutando. Tiene la forma INPUT Yar, donde Var puede 
ser una variable cualquiera. Para la entrada secuenclal de 
varios datos, se permite enlazar una cantidad suficiente de 
variables, separadas por coma, o sea, que INPUT LONGITUD, 
ANCHURA, ALTURA puede admitir tres números uno tras otro 
para su posterior uso en el programa. 

SI los datos ya son conocidos al Iniciar el programa, 
podrán ser Incluidos directamente en el programa, hecho que 
sólo tiene sentido si los datos no varían para cada 
ejecución del mismo. Las 11aves necesarlas para ello son 
READ y DATA. INPUT es sustituido por READ: por esto, READ 
LONGITUD, ANCHURA, ALTURA cumple la misma función; los datos 
de entrada se preparan con DATA I#2,2 en una línea 
cualquiera del programa. 

Es Importante saber que los datos serán leídos en el orden 
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en que están colocados. Esto significa, que el número de 
datos en líneas DATA debe ser Igual que el número de 
variables de la Instrucción READ, de lo contrario aparecerá 
un mensaje de error o no se consideraran todos los datos. 

SI se desea volver a leer los datos empezando por el 
primer elemento, debe utilizarse la Instrucción RESTORE. 


A continuación, entramos las siguientes líneas en nuestro 
Atar I: 


150 DIM PASADA(AR,6) 

500 REM TABLA DE DIRECCIONES 

501 DATA 0,0,0,2,0,0 

502 DATA 0,0,1,3,0,0 

503 DATA 0,4,2,0,0,0 

504 DATA 3,0,5,0,0,0 

505 DATA 0,0,6,4,0,0 

506 DATA 0,0,0,5,0,0 


Ahora deben transferirse los datos a las variables de 
trabajo. Para ello leemos primero el destino de las líneas 
DATA y lo escribimos luego en la correspondiente variable 
del campo PASADA. Para evitar errores, debe conocerse con 
antelación el número de lugares; así pues. Introduciremos 
primero la variable AR = número lugares. Lo mas práctico 
sería Inicia I Izar la ya al principio del texto del programa, 
para que más adelante sea fácil efectuar ampliaciones de la 
aventura. 

lio AR=6 
190 GOTO 940 
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Ahora repasaremos dentro de un bucle todos los lugares: 

940 FORLUGAlVl TO AR 

e InIdaI Izamos la tabla de direcciones. Como deben leerse 
seis datos de direcciones para cada lugar. Introducimos un 
segundo bucle dentro del primero: 

950 FOR DIRECCI0N=1 TO 6 

960 READ META : PASADA(LUGAR,DIRECCION) 

=META 

970 NEXT DIRECCION 

980 NEXT LUGAR 

Cada fila de nuestro array se Identifica ahora con un 
lugar; en las seis columnas de cada fila se almacena el 
lugar que el jugador podrá pisar mediante Introducción de la 
correspondiente dirección. 

Esta disposición nos facilitará considerablemente la 
programación de los movimientos que deberá realizarse a 
continuación. 

Antes de que este pueda moverse hacia algún lugar, se ha 
de Informar sobre las salidas de que dispone. Tenemos que 
desarrollar algunas líneas de programa, que emitan en la 
pantalla los puntos cardinales disponibles. 

Supongamos que nuestro personaje principal se encuentra 
momentáneamente en el lugar 3. Entonces nos dirigimos a la 
fila 3 de la tabla de direcciones: 
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Todo lo que debemos hacer es Indicar el nombre de aquellas 
columnas que no contengan un 0. En nuestro ejemplo, son las 
columnas dos y tres, o sea, Sur y Oeste, 


Como hemos visto, la fila del campo coincide con el lugar 
a Investigar; para la preparación de este actual número de 
lugar. Introdujimos antes la variable JUGADOR, Así que para 
emitir las direcciones que no están cerradas, el programa 
debe comprobar las seis direcciones del lugar JUGADOR y 
mostrar los nombres de todas las columnas cuyo valor sea 
distinto de cero. 


Hay que comprobar seis direcciones: 


1230 POR DIRECCI0N=1 TO 6 

1240 IF PASADA(JUGADOR,DIRECCI0N)<>0 

THEN PRINT *•*** SALIDA ***** 

1280 NEXT DIRECCION 


Al comprobar la ejecución, el programa describirá ahora 
cada lugar, así como cada posible salida; aunque 
desgraciadamente aun no Indica su dirección. 

Por suerte, para comprobar si existe una salida, siempre 
se dispone del número de la dirección reden examinada en la 
variable contadora DIRECCION, por lo que podremos proceder 
del mismo modo que para la emisión de las descripciones de 
lugar: 

990 GOTO 1080 

1010 REM ***** TEXTO CLARO: DIRECCIONES 

1011 PRINT **N0RTE**:RETURN 

1012 PRINT **SUR*':RETURN 
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1013 PRINT **0ESTE**:RETURN 

1014 PRINT **ESTE»':RETURN 

1015 PRINT **ARRIBA*»:RETURN 

1016 PRINT **ABAJO**:RETURN 

1240 IF PASADA(JUGAD0R,DIRECCI0N)<>0 
THEN GOSUB 1010+DIRECCI0N 


Iniciamos nuestro programa para efectuar un control, 
entrando algunos números de lugar, mirando al mapa podremos 
convencernos de que hasta ahora todo funclóna correctamente. 


Después de estos preparativos, ahora haremos posible el 
movimiento dirigido en nuestra aventura. 

Cualquiera que ya hubiera cargado alguna vez un juego de 
aventuras, sabrá que la Introducción de un punto cardinal es 
la Indicación más frecuente para la figura del juego. Por 
eso, nosotros como programadores, deberíamos facilitarle la 
labor al jugador, considerando como suficiente la entrada de 
la letra Inicial, ahorrando de esta manera al aventurero el 
haber de teclear cada vez el nombre completo del punto 
cardinaI, 

Desgraciadamente, pueden ertcontrarse muchos juegos de 
aventuras en el mercado, que no ofrecen ninguna rutina 
Independiente de la codificación y ejecución de las 
Instrucciones y que exigen un explícito VE HACIA OESTE, 

Pero nosotros queremos entrar nuestras Indicaciones de 
dirección de forma abreviada, porque podremos tratarlos con 
preferencia, lo que favorece por su parte, a una reacción 
más rápida del programa a la entrada. 

Sustituyamos, primero, la línea 1390, para permitir 
entradas correspondientes a la aventura: 
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150 DIM PASADA(AR,6),ENTRADAS(20) 

1390 PRINT "OUE DEBO HACER ";:INPUT EN 

IRADAS 

Antes de que nuestro programa ejecute ahora cualquier 
manipulación del Juego, debería comprobar la longitud de la 
entrada del Jugador. SI la longitud es superior a dos letras 
(arrIba=AR), se tratará de alguna acción, si no, debe 
ejecutarse la rutina del movimiento. Esta comprueba en 
primer lugar, si el camino en la dirección señalada esta 
libre, y si lo está, se leerá el nuevo lugar en la deseada 
tabla de direcciones bajo la correspondiente dirección 
(columna) del lugar, en que se encuentra el Jugador (fila), 
que se asignará a la variable correspondiente (JUGADOR), 
Para finalizar, el Jugador será Informado sobre la ejecución 
de la acción: 

1080 PRINT 

1400 IF LEN(ENTRADAS)>2 THEN 1480 
1410 IF ENTRADAS="N" AND PASADA!JUGADOR 
,1)<>0 THEN JUGAD0R=PASADA(JUGADOR,1): 

PRINT "0.K.":G0T0 1080 

1420 IF ENTRADAS="S" AND PASADA(JUGADOR 

,2)<>0 THEN JUGAD0R=PASADA(JUGADOR,2): 

PRINT "0.K.":G0T0 1080 

1430 IF ENTRADAS="0" AND PASADA!JUGADOR 

,3)<>0 THEN JUGAD0R=PASADA(JUGADOR,3): 

PRINT "0.K.":G0T0 1080 

1440 IF ENTRADAS=”E" AND PASADA!JUGADOR 

,4)<>0 THEN JUGAD0R=PASADA(JUGADOR,4): 

PRINT "0.K.":G0T0 1080 

1450 IF ENTRADA$=''AR" AND PASADA(JUGAD 

0R,5)<>0 THEN JUGAD0R=PASADA(JUGADOR, 

5):PRINT "0.K.";G0T0 1080 

1460 IF ENTRADA$="AB" AND PASADA(JUGAD 

0R,6)<>0 THEN JUGAD0R=PASADA(JUGADOR, 
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1470 PRINT"HACIA ALLI NO CONDUCE NINGUN 
CAMINO r:G0T0 1080 

1480 REM A PARTIR DE ACCIONES POSTERIORES 
2000 GOTO 1080 


Naturalmente con el Inicio de cada juego debemos Informar 
al programa sobre el lugar del comienzo. 

120 JUGAD0R=1 

Un corto paseo por nuestro mundo de aventuras nos 
convencerá rápidamente, de que a continuación tendremos que 
ocuparnos de configurar la Imagen de pantalla si queremos 
evitar que después de una cuantas Jugadas se presente un lio 
Informativo a nuestros ojos. 


FORMATEAR LA SALIDA 

Para posibilitar una limpia configuración de Imagen hay 
que borrar naturalmente la pantalla al comenzar el juego: 

10 GRAPHICS 0 

1080 PRINT 

Naturalmente no tiene sentido Imprimir esta línea vacía en 
una pantalla limpia. Se hará necesaria siempre después de 
ejecutar una Instrucción, ya que nuestra entrada, así como 
Indicaciones posiblemente efectuadas, deben desplazarse una 
línea en sentido ascendente. Este desplazamiento se consigue 
con ayuda de un PRINT en la última línea de pantalla, y es 
necesario para finalizar cada jugada. 

Para efectuar nuestras entradas, necesitamos la línea 
inferior, o sea, tras emitir la Información al jugador, 
debemos mover el cursor hacia ella. 
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En cuanto a su capacidad, el BASIC del Atar! nos ofrece dos 
posibilidades. Por un lado están los comandos de control del 
cursor, que pueden desplazar la marca de escritura por uno 
número determinado de líneas hacia abajo. Pero 
desgraciadamente, este valor depende de la cantidad de 
Información emitida, o sea, de la cantidad de objetos, y no 
está disponible sin más ni más durante el transcurso del 
juego. 

Sin embargo, profundizaremos también en esta posibilidad, 
ya que a continuación utilizaremos uno de los códigos de 
control. 

De manera simplificada, puede decirse que cada Instrucción 
existe para el Interpretador de BASIC en forma de número 
codificado, el llamado ”token”, y no en forma de secuencia 
de letras. 

Podemos dirigirnos a todas las rutinas del Interpretador, 
previstas para la gestión de la pantalla a través de este 
número con ayuda de la función CHR$, asignando a cada 
Instrucción de control del cursor lo siguiente 


CHR$(28) 
CHR$(29) 
CHR$(30) 
CHR$(31) 


cursor arriba 
cursor abajo 
cursor Izquierda 
cursor derecha 


Esto significa que la Instrucción PRINT CHR$(28) 
desplazaría el cursor una línea hacia arriba. 


Otra solución mucho más adecuada es la Instrucción 
POS IT IONr que sitúa el cursor en una posición exactamente 
definida. Se utiliza en la forma "POS IT ION X,Y'*, donde Y 
corresponde a la línea y X la posición de escritura dentro 
de una línea: 

1390 POSITION 2,23 : PRINT "QUE DEBO 
HACER";:INPUT ENTRADAS 
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Con ello, nuestra entrada tendrá lugar en la línea 24 (la 
línea superior es la línea 0), y el RETURN final desplaza la 
pantalla una línea hacia arriba, por lo que no es necesario 
tomar otras medidas respecto a las Informaciones de las 
reacciones para el jugador. Con el comienzo de la nueva 
jugada, la línea 1080 vuelve a hacer disponible la fila 
Inferior para el próximo ciclo de entradas. 

Esta modificación provoca que de momento se realicen todas 
las emisiones en la línea Inferior de la pantalla, mientras 
que las descripciones de lugar deben Iniciarse en cambio, en 
la línea superior: 

1100 POSITION 2,0:PRINT "ESTOY ";:G0SUB 
200+JUGADOR 

Sin embargo. Informar al aventurero sobre las salidas 
disponibles, no será tan fácil para nosotros, ya que, aunque 
suprimiésemos el óetorno del carro mediante el punto y coma, 
sería Imposible emitir correctamente más de tres caminos. 

Hay que procurar que ninguna palabra salga de la línea; 
además deberían separarse los diferentes puntos cardinales 
mediante coma, así como se debería cerrar cada frase con un 
punto. Desarrollemos, pues, una rutina que se encargue de 
esta cuestión según el siguiente esquema: 


preparar final de línea: 
backspace+"." 


borrar bandera de Impresión 


Iniciar línea entera: 
"Puedo Ir hacia" 
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Al confeccionar este diagrama Strukto se ha partido de las 
consideraciones siguientes: 

PUEDO IR HACIA NORTE, SUR, OESTE, 

ARRIBA, ABAJO. 

Está claro que antes de Imprimir cualquier cosa, la línea 
de emisión debe comenzar con “Puedo Ir hacia'* (1220). 

Ahora podrían Imprimirse, de manera habitual, las 
direcciones en forma de texto descifrado dentro de un bucle. 
Desgraciadamente, al hacerlo no habría ninguna posibilidad 
de controlar la longitud de la emisión. Se ofreció como 
solución, crear primero una línea de Impresión completa que 
cupiese Justo en una línea de pantalla (1260, 1270). 

Por ello ;e averigua cada texto, utilizando una variable 
auxiliar T$ (para el strlng parcial), y éste se sumara a la 
línea de impresión mientras no exceda la máxima longitud de 
línea. De esta manera pueden emitirse hasta tres 
Indicaciones de dirección, mientras que una cuarta dirección 
ya superarfa el valor limite de 38 caracteres. 

Esto significa, que antes debe emitirse la línea de 
Impresión hallada hasta ahora, y que la cuarta dirección se 
registre como nuevo contenido en DZ$. 

Este procedimiento se repite con el tratamiento de la 
segunda línea de Impresión, hasta que se hayan comprobado 
las seis direcciones. 

La próxima misión consiste en emplazar un punto al final 
de la frase. La línea 1040 crea el strlng ZENDES (final de 
línea) para este fin, que mueve el cursor dos posiciones 
hacia atrás e Imprime entonces un punto. Este strlng se 
añade al último texto a Imprimir en DZ$; a continuación, se 
emite el contenido de esta variable. 

Un último problema se ocasiona por la situación - que 
podría darse - de que el jugador pueda encontrarse en un 
lugar que 
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aparen+emen+e no tiene salidas* En este caso, la rutina 
creada hasta ahora daría una Imagen algo fea en la pantalla* 
Por esta razón se prevé otra variable auxiliar, que sirve 
como señal para saber si se ha Imprimido al menos una 
dirección* 

Para ello se aprovecha el hecho de que el ordenador 
considera siempre como verdadero un contenido de variable de 
-1, y cualquier otro como falso* Así, en el caso de que no 
se haya emitido nada (GEDRUCKTo-1), puede añadirse el texto 
**en nlngón sitio** a la línea de Impresión* 

Con ello se necesitan efectuar las siguientes 
modificaciones y ampliaciones: 


150 DIM PA$ADA(AR,6), ENTRADAS(20),DZ$ 

(42),T$(40),ZENDE$(3) 

ion T$=**N0RTE, '*:RETURN 

1012 T$=**SUR, *':RETURN 

1013 T$=**0ESTE, •»:RETURN 
Í014 T$=*»ESTE, **:RETURN 

1015 T$=»*ARRIBA, "iRETURN 

1016 T$=**ABAJ0, '*:RETURN 

1040 ZENDE $=CHRS(30):ZENDE $(LEN(ZENDE $) 
+ 1 )=CHR$(30):ZENDE$(LEN(ZENDE$) + 1 )=***" 
1220 DZ$=**PUED0 IR HACIA *':GEDRUCKT=0 
1240 IF PASADA(JUGADOR,DIRECCION)=0THEN 
GOTO 1280 

1250 GOSUB lOlO+DIRECCION:IMPR1MID0=-1 

1260 IF L£N(DZ$)+LEN(T$)>=38 THEN PRINT 

DZ $: DZ $=T$ (1, LEN (T$)): T $=*' »•: GOTO 1280 

1270 DZ$(LEN(DZ$)+1)=TS 

1280 T$=*'*’:NEXT DIRECCION 

1290 IF NOT IMPRIMIDO THEN DZ$(LEN(DZ$+ 

1)=»*NINGUN SITIO*" 

1300 DZ$(LEN(DZ$)+1)=ZENDES 
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1310 PRINT DZS 


ORO, PLATA Y OTRAS COSAS UTILES 

Este paseo a través de nuestro mundo de aventuras ofrece 
al aventurero una Imagen triste y poco Interesante hasta 
ahora, puesto que no dispone de ningún tipo de objetos para 
la acción. Además, simples descripciones de lugar no 
permiten tampoco realizar ningún juego* Volvemos a coger 
pues nuestro mapa, y enriquecemos nuestro mundo con los 
objetos deseados, limitándonos a objetos que sean 
importantes para seguir el desarrollo del juego* Como 
simples adornos, el posterior trabajo sería excesivo, ya que 
debemos permitir que el jugador pueda coger con la mano y 
examinar todo lo que encuentre* De todas maneras, no podemos 
evitar situar como mínimo un objeto en cada lugar, ya que es 
muy dudoso que el aventurero no vea absolutamente nada sin 
más ni más* Sí no disponemos de suficiente fantasía, el 
objeto puede ser tranquilamente "nada especial"* Esta 
formulación se encuentra muy a menudo en los juegos de 
aventuras, ¿porqué? sirve para reducir el volumen de 
trabajo, ya que en un bosque los objetos como Oarboles, 
arbustos, hierba. Insectos, etc* no son realmente nada 
especial * 

Pero a menudo, no se puede evitar el uso de cosas 
Inútiles, especialmente cuando forman parte del ambiente y 
la aventura debe ofrecer una impresión realista* 

Así también nosotros tendremos que colocar árboles en 
nuestro bosque, aunque la acción no Id requiera* En el lugar 
dos, que ya se encuentra cerca de las montañas, algunos 
pedruscos refuerzan la impresión de realidad* Además, a una 
mina le corresponde una cabaña, no siendo Importante si es 
la vivienda del propietario de la mina o si sirve para 
guardar herramientas. Finalmente, debemos esconder en algún 
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Lugar los tesoros que hay que buscar. Además es conveniente 
Introducir algunos objetos que perjudiquen al Jugador • 

Permítame pues, centrarme en el desarrollo de la acción y 
escoger los objetos adecuados. 


DESARROLLO DE LA ACCION FIEBRE DEL ORO 


La versión 1 debe encargar al Jugador la misión de encontrar 
dos tesoros, monedas de oro y de plata en los alredeores de 
la mina. Al comenzar el Juego, el Jugador se encuentra en el 
bosque y debe acercarse a las minas. En su camino hacia 
ellas, en el bosque descubre un hoyo, en cuyo fondo se 
encuentra una pesada arca de hierro. En ella se halla la 
plata, pero desgraciadamente, la arca esta cerrada con un 
candado y una gruesa cadena de hierro; en ningún sitio se 
puede encontrar una llave que funcione. Sin embargo, en la 
boca de entrada de la mina hay unas barras de hierro que son 
lo bastante fuertes como para partir con ellas la cadena de 
hierro o romper el candado del arca. También podemos 

permitir que el Jugador Intente conseguir su objetivo con 
ayuda de un explosivo; dejemos que encuentre dinamita en una 
cabaña de madera, una buena ocasión para nosotros de 
programar su final anticipado. Colocaremos las piezas de oro 

en una cueva que, muy a pesar del Jugador, está habitada por 

un oso feroz, Pero de esto no se enterará el Jugador hasta 
que Inspeccione la cueva, SI le vence la codicia por el 
metal amarillo y le Induce a cogerlo espontáneamente, 

también el hambre del oso hara 
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que este pierda el miedo a los hombres - después de la 
dinamita, está es la segunda trampa para el Jugador. 

Por otra parte, gracias a Wllhelm Busch (autor de poesías 
Infantiles), todos sabemos que a los osos les encanta la 
miel. Por esta razón, en una estantería de la cabaña 
colocamos una botella que contenga este codiciado líquido. 
SI el Jugador entra en la cueva con esta botella, el oso 
olerá la miel y desaparecerá con la botella en las 

profundidades de la cueva, con lo que ya no habrá nada que 
se oponga al final feliz de esta mi ni aventura. 


El mapa de nuestro Juego de aventuras "Fiebre del oro” se 
parecerá ahora al siguiente esquema. 


LOS OBJETOS 

Antes de completar nuestra aventura con la programación de 
los objetos necesarios, tendremos que hacer aun algunas 
reflexiones preliminares aún; 

Para conseguir que el jugador entre en este mundo del 
ordenador, no debemos describirlo sécamente, sino que 
tendremos que esforzarnos en mantener despierto el Interés 
del jugador mediante descripciones plásticas. La Información 
' Veo un oso.' permite seguir el Juego al jugador, pero la 
noticia ' Veo un oso con una mirada muy feroz'le daré la 
ocasión de vivirla. 

SI en el aventurero pensase en hacer un nuevo amigo, sería 
fácil para nosotros programar una entrada como 'Acaricia oso 
con mirada muy feroz^ poro no se le podría exigir tal tarea 
al Jugador. 

Para evitar eso, tendremos que llamar a cada objeto por un 
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en el bosque 


en el bosque 


en bosque junto ' 





despeñadero 

arboles 


arboles 


cabaña de madera 


0—E 


0—E 

estantería 


1 


2 

botella 


N 


S 


entrada a minas 


claro del bosque 


en un claro 



vertiente 


del bosque 

barras de hierro 


cueva 

i 

I 

i arbustos 

I 



pepitas de oro 


I n 

agulero t 


0—E 

oso 

0—E 

plata I 


nombre, además de ofrecerle la propia descripción del 
objeto, con lo que también obtenemos la posibilidad de fijar 
libremente la longitud de palabra de la aventura segtín 
nuestras necesidades. Probablemente usted se haya dado 
cuenta de que las aventuras profesionales, procedentes de 
lugares de habla Inglesa, suelen requerir s6lamente las tres 
o cuatro primeras letras para Identificar cada palabra. 
Normalmente bastan también tres letras para definir los 
términos de las aventuras castellanas, pero al realizar un 
proyecto más amplio se aconseja confeccionar antes una lista 
de los objetos previstos y repasarla atentamente. De lo 
contrario, al proceder a la programación de las condiciones 
y acciones, se sorprenderá de la cantidad de sustantivos 
Importantes para la aventura que empiezan con las mismas 
tres letras. SI su juego de aventuras se compone además de 
letras mayúsculas y minúsculas, deberá tener presente 
utilizar solamente letras mayúsculas para definir los 
nombres, ya que estas abreviaciones serán comparadas más 
adelante con las entradas efectuadas por el jugador. 


Como tercera información, además del nombre completo y del 
abreviado, tendremos que memorizar también el número del 
lugar en el que se encuentra el objeto. Estos números se 
modifican continuamente durante el juego y no pueden ser 
leídos de una línea de programa fija, sino que deben estar 
disponibles en determinadas variables. 

Realizamos, pues, una lista en la que cada valor 
corresponde al paradero- de un objeto. 

Por razones prácticas utilizamos la variable Indexada 
OBO, que nos ofrece una manera simple de controlar y 
manipular la posición de cualquier objeto. 

Mientras que un objeto no participe activamente en el 
juego, el valor de OB = 0, lo que equivale a derlr, que el 
objeto se encuentra en el almacén. En otros casos, el 
contenido de OB corresponde al valor de la variable jugador, 
siendo visible en el lugar, o bien su valor es -1, en cuyo 
caso el 
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aventurero lo lleva consigo (Inventory) 


Las próximas líneas preparan las descripciones de todos 
los objetos, necesarios para la realización del programa 
confeccionado hasta ahora (fiebre del oro,’ minlversión), 
para la salida en pantalla. 

Cada línea corresponde a un pequeño subprograma, puesto que 
queremos utilizar la técnica ya desarrollada con los puntos 
cardinales. 


300 REM *«****»»*■»****»*«»***** objetos 

301 T$="MUCH0S ARBOLES GRANDES"tRETURN 

302 T$="MUCH0S ARBOLES GRANDES":RETURN 

303 T$="ALGUNAS ROCAS"rRETURN 

304 T$="UNA CABAÑA DE MADERA EN RUINAS 
" :RETURN 

305 T$="UNA SUCIA BOTELLA FORRADA":RETU 
RN 

306 T$="MIEL":RETURN 

307 T$="UNA CAJA DE MADERA":RETURN 

308 T$."UNA ESTANTERIA DESVENCIJADA":RE 
TURN 

309 T$="UN POCO DE EXPLOSIVO"tRETURN 

310 T$="UN AGUJERO OSCURO"tRETURN 

311 T$="UN ARCA DE HIERRO 0X1DADA"tRETU 
RN 

312 Tí»"«MONEDAS DE PLATA*"tRETURN 

313 T$="UNA CUEVA OSCURA"tRETURN 

314 T$="UN OSO RABIOSO"tRETURN 

315 T$="ARBUSTOS BAJOS"tRETURN 

316 T$="VARIAS BARRAS DE HIERRO"tRETURN 

317 T$="*PEPITAS DE ORO«"tRETURN 
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A cada uno de estos objetos le asignaremos 
posición dentro de nuestro mundo de aventuras! 


ahora una 


400 REM *****♦♦***♦« POSICIONES OBJETOS 
410 DATA 1 , 2 , 2 , 3,0,0,3,0,0,0,0,0,5,0,4, 
6,5 

900 FOR OBJETO=1 TO AO 

910 READ SITUACIONtOB(OBJETO)=SITUACION 

920 NEXT OBJETO 


Ahora visualicemos las Instalaciones de un lugar al 
jugador. 

En la variable JUGADOR encontramos el número del lugar en 
que se ha entrado, OBO contiene el número del lugar de 
todos los objetos. Comprobemos pues dentro de un bucle, si 
el número de posición de un objeto coincide con el actual 
número de lugart 


1110 DZ$="VE0 "tlMPRlMIDO=0 
1120 FOR 1=1 TO AO 

1130 IF 0B(I)<>JUGADOR THEN GOTO 1170 
1140 IMPRIMID0=-1tGOSUB 300+IíT$(LEN(T$ 
) + 1 )=", " 

1150 IF LEN(DZ$)+LEN(T$)>=38 THEN PRINT 
DZ$!DZ$=T$(1,LEN(T$))!T$=""tG0T0 1170 
1160 DZ$(LEN(0Z$)+1)=T$tTS="" 

1170 NEXT I 

1180 IF NOT IMPRIMIDO THEN DZ$(LEN(0Z$) 
+1)="NA0A ESPECIAL. " 

1190 DZ$(LEN(0Z$)+1)=ZENDE . 

1200 PRINT DZ$ 


La línea 1110 del programa posterga la bandera de señal, 

que 
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más tarde necesitaremos para poder comprobar sí se ha 
Imprimido alguna cosa, y fija el comienzo de la línea de 
Impresión. 

La 1130 comprueba para cada objeto, si este se encuentra 
en un lugar diferente que el Jugador. SI,este test resulta 
positivo, se prosigue Inmediatamente a comprobar el objeto 
siguiente; en caso contrario, se coloca la bandera de 
Impresión, se reclama la descripción del objeto y se le 
aÑade una coma. Este proceso se repite hasta conseguir una 
longitud completa de línea de Impresión de 38 caracteres y 
emitir el texto, o bien hasta que se haya ejecutado todo el 
bucle y emitido en consecuencia, todos los objetos visibles. 

Finalmente, la línea 1190 reemplaza el último carácter y 
pone fin a la rutina de Impresión con un punto. 


Para llegar a conseguir la estructura de pantalla de las 
aventuras originales americanas, ya sólo nos falta añadir 
una línea de separación y una línea vacía: 

150 DIM.. BLANC0S$(38) 

1020 BLANC0S$=” 

ri 

1210 PRINT BLANCOS! 

1330 PRINT»- 

-»:REM 37 X CONTROL R 


Por otra parte, después de haber efectuado varias 
entradas, nos daremos cuenta de un último problema. Las 
informaciones que se encuentran en la mitad inferior de la 
pantalla se van desplazando cada vez más hacia arriba, 
mezclándose después de unas cuantas jugadas, con las 
descripciones de las Inmediaciones del lugar. Por ello, el 
programa tiene la 
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Misión de borrar las líneas superiores antes de emitir estas 
descripciones, lo que puede conseguirse mediante la 
Impresión de suficientes líneas vacías. 


1090 FOR L1NEA=0 TO lOrPOSICION 2,LINEA 
:PRINT BLANCOS$:NEXT LINEA 


EL LEXICO 

Antes de proceder ahora a programar el propio juego, y de 
ocuparnos de las acciones del programa invisibles para el 
Jugador, debemos entrar los verbos necesarios. Junto con los 
mencionados nombres de los objetos, estos verbos formarán el 
léxico completo de nuestra aventura, siendo por ello la base 
de comunicación con el jugador. 

Estas son las palabras que tendremos que comparar con las 
entradas efectuadas por el aventurero, o sea, que se van 
efectuando continuamente comprobaciones de su Identidad. Sin 
embargo, llevaría demasiado trabajo programar, de manera 
parecida al tratamiento de los objetos, una línea propia 
para cada término. Ahora aprovecharemos nuestro acuerdo de 
elegir una longitud de palabra definida exactamente, con lo 
que conocemos perfectamente el número de carácteres 
significativos de cualquier entrada. Para ello es práctico 
analizar partes, de igual longitud de un string largo. 
Necesitaremos dos de estos strlngs, uno para los verbos y 
otro para la descripción abreviada de los objetos: 


160 DIM VERBOS$(40), OBJETOS$<80) 

170 VERB0S$="INSPC0GEP0N ABREUTILDEST» 

180 OB JETOS $=”ARBOARBOROCACABABOTEMIELC 
AJAESTAEXPLAGUJARCAPLATCUEVOSO ARBUBAR 
RNUGG» 
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ANALISIS DE LAS ENTRADAS 


Ahora ya se reconocen y se ejecutan correctamente los 
cambios de direcciones efectuados por el Jugador, un grupo 
de Instrucciones con longitudes de palabra de una o dos 
letras. Sin embargo, la entrada estándar siempre consta de 
verbo y objeto, donde las longitudes de los términos no 
están sujetos a ninguna restricción, prescindiendo de la 
longitud mínima exigida para reconocer los conceptos. Para 
poder reaccionar tal como desea el Jugador, nuestro programa 
debe comprobar su entrada: 

¿está programado el verbo utilizado ? 

¿está previsto el objeto ? 

SI ambas preguntas pueden contestarse afirmativamente, la 
entrada se descompone en verbo y objeto, y se averiguan sus 
respectivos números. SI las componentes de la entrada no 
están definidas, se emitirá un mensaje consecuente para el 
aventurero. 


INCISO: TRATAMIENTO DE STRINGS 

La principal diferencia entre un ordenador y una 
calculadora de bolsillo programable, es la capacidad del 
ordenador para procesar textos. Naturalmente, una 
calculadora no comprende los textos, sino que los entiende 
como una colección de determinados caracteres, la llamada 
variable de cadena o string. Estos string son, en general, 
combinaciones de todos los caracteres que se pueden 
Introducir a través del teclado. El sistema operativo del 
ordenador ofrece ahora una serle de funciones para tratar 
estas variables de cadena. 

Además de una serle de Instrucciones de conversión como 
VAL O y STR$(), que convierten un número en un string y 
viceversa, nuestro AtarI ofrece la posibilidad de concatenar 
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Y de descomponer strlngs. Con la Instrucción B$=A$(1,3) 
podemos preparar las tres primeras letras de la variable de 
cadena A$ en B$, para disponer de ellas en su posterior 
tratamiento dentro del programa. En el caso de A$=**ABCDEF”, 
el contenido de B$ sería, por ejemplo, ”ABC”. 

Para poder crear ahora este tipo de substring al efectuar 
la llamada de esta función, deben conocerse como parámetros 
los valores Inicial y final. Esto puede hacerse a través de 
un acuerdo (en nuestro string OBJETOS!, después de cada 
tercera letra comienza una nueva palabra), así como mediante 
la búsqueda de una determinada señal dentro de un string. 

Así por ejemplo, nuestro programa de aventuras busca la 
posición del espacio entre verbo y objeto de la entrada 
efectuada por un Jugador y, utilizando este número de 
Identificación, hallará los dos substrlngs EVERBOS y 
EOBJETOS. 

Sin embargo, para poder determinar el número de letras 
necesarias, debe hallarse previamente la longitud total de 
la entrada mediante LEN(ENTRADAS). 


SI la ejecución de una entrada no se efectúa en las líneas 
1410 a 1470, se considerará, en el caso de que la longitud 
de la entrada conste de menos de tres letras, que se trata 
de un error de entrada. Después de emitir "¡Hacia allí no 
conduce ningún camino!**, comenzará una nueva Jugada. 

SI se trata de una entrada más larga, la ejecución del 
programa continuará en la línea 2000: 

160 DIM ... EVERB0$(20),E0BJET0S(20) 

1470 IF LEN(ENTRADAS)<3 THEN PRINT "HAC 
lA ALLI NO (X)NDUCE NINGUN CAMINO !'*:G0 
TO 1080 

2000 LN=LEN(ENTRADAS) 

2010 FOR 1=1 TO LN 
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THEN NEXT I 


2020 IF ENTRADAS( I, I )o» ” 

2030 EVERBO$=ENTRADA<(1,1) 

2040 IF LEN(EVERBO$)=LN THEN GOTO 2090 
2050 E0BJET0S=ENTRADA$(1+1,LN) 

Después de determinar la longitud de la entrada completa, 
dentro de un bucle se comprueba cada letra, comenzando por 
la Izquierda, para ver si es un espacio. AI encontrar el 
espacio, ya se conoce la longitud del verbo (del primero al 
último carácter recién comprobado) y el verbo puede ser 
asignado a la variable EVERBOS. La variable de cadena que 
comienza a partir de la siguiente posición (debe saltarse el 
espacio) corresponde pues, al objeto de la entrada. 

SI se ha utilizado una Instrucción de una única palabra 
(HELP), la longitud del verbo coincidirá con la longitud de 
la entrada. Puesto que no es necesario preparar ningún 
objeto para su posterior tratamiento, se bifurca 
directamente (línea 2040) para el análisis del verbo (línea 
2090). 

2090 FOR 1=1 TO LEN(VERB0S$) STEP 4 
2100 VN=VN+1 

2110 IF VERB0S$(I,l+2)=EVERB0$ THEN2140 
2120 NEXT I 

Dentro de otro bucle se comparan siempre las cuatro 
siguientes letras de nuestro string VERBOSS, que contiene 
los nombres de todos los posibles verbos del Juego, con el 
verbo de la entrada hallado previamente. Un contador tiene 
preparado el número del verbo recién comprobado, de manera 
que se puede salir del bucle cuando se produzca una 
Identidad. SI se ha ejecutado todo el bucle sin encontrar 
ningún substring adecuado, significa que el programador no 
había previsto este verbo, lo cual se comunicará al Jugador; 

2130 PRINT "NO ENTIENDO EL VERBO !": GO 
TO 1080 
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A continuación se hallará el número del objeto, utilizando 
el mismo principio: 


2140 FOR 1=1 TO LEN(0BJET0S$) STEP 4 
2150 N=N+1 

2160 IF OBJETOS$(I,1+2)=E0BJETOS$ THEN 
GOTO 2200 
2170 NEXT I 

2180 PRINT "NO ENTIENDO EL OBJETO !":G0 
TO 1080 


Después de entrar estas líneas, hemos superado una buena 
parte de nuestro trabajo de desarrollo. Las rutinas creadas 
estructuran convenientemente la pantalla, y crean también la 
comprensión para las entradas que pueda efectuar el Jugador. 

Averiguan cual de los posibles verbos ha sido utilizado 
por el aventurero y con que objeto desea efectuar la acción, 
con lo que se posibilita una bifurcación del programa hacia 
una línea del mismo, prevista para ejecutar dicha acción. 
Precisamente por estas funciones centrales de control, esta 
parte del programa se llama motor. 
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RESUMEN: ESTRUCTURA DE LOS PROGRAMAS 


Esta claro que nuestros programas de aventuras constan de 
tres partes: 

1. Datos de la aventura 

2. Motor de i a aventura 

3. Ejecución de las Jugadas 

1. Los datos constituyen la base de cualquier Juego. Se 
transfieren en parte, a unas variables de trabajo, o bien, 
se mantienen disponibles en pequeños subprogramas para ser 
transmitidos al programa principal. 

2. El motor se ocupa de controlar la completa ejecución 
del programa. Estructura la salida a pantalla, recoge las 
entradas del Jugador, las valora e Inicia la ejecución de 
las Instrucciones. 

El motor es Independiente de la aventura en cuestión, y 
puede utilizarse Invariablemente para cualquier aventura. 

3. La tercera parte constituye la propia aventura. SI se 
cumplen todas las condiciones necesarias para una acción, 
esta será ejecutada. 


Para que no pierda oe vista el conjunto, vamos a resumir 
aquí la estructura de nuestra aventura. Indicando también 
las rutinas que se crearán a continuación. 

Asf nos muestra el carácter universal de este borrador. 

Esto significa que bastan algunas modificaciones para 
poder transformar la aventura de texto en otra gráfica. De 
la misma manera, gracias a la sistemática estructura 
uniforme con líneas de programa muy definidas para los 
diversos bloques de funciones, será posible desarrollar un 
generador de aventuras. 
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BORRADOR DE LA ESTRUCTURA: AVENTURA EN TEXTO 


DATOS 


0 

100 

IMAGEN TITULAR 

100 

150 

DATOS DE CONTROL 

150 

160 

RESERVAR NEMORIA 

170 


STRING TOTAL VERBOS 

180 


NOMBRES ABREVIADOS DE OBJETOS 

200 

300 

DESCRIPCIONES DE LUGAR 

300 

400 

DESCRIPCIONES DE OBJETOS 

400 

500 

SITUACION OE OBJETOS 

500 

600 

COMUNICACIONES DE LUGARES 

600 

700 

INFORMACION ESTANDAR 

700 

800 

SEGUNDO TITULO EVENTUAL 

800 

900 

INSTRUCCIONES GENERALES DE JUEGO 

900 

1000 

INICIAL IZAR DATOS DE JUEGO 

MOTOR DE 

LA AVENTURA 

1000 

1020 

TABLA DE DIRECCIONES 

1030 

1040 

VARIABLES DE CONTROL 

1080 

1320 

GESTION DE PANTALLA 

1321 

1398 

SUCESOS ESPECIALES 

1390 


ENTRADA DE LA JUGADA 

1391 

1399 

TRAMPAS Y OBSTACULOS 

1400 

1500 

MOVER PERSONAJE PRINCIPAL 

1500 

1600 

BALANCE 

1600 

1700 

SAVE GAME 

1700 

1800 

LOAD GAME 

1800 

1950 

HELP, VOCABULARIO, INSTRUCCIONES 

1950 

2000 

INTERRUPCION DEL JUEGO 

2000 

2180 

ANALISIS DE LA ENTRADA 

2200 


EJECUCION TABLA DE SALTOS 

EJECUCION 


5000 

30000 

MOVIMIENTOS 
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¿CUANDO FUNCIONA QUE? 


Imaginemos ahora al Jugador que pretende encontrar I 
nuestros dos tesoros. Con una sola mirada se da cuenta de I 

que está en el bosque, rodeado por árboles y rocas. El sabe, I 

como Jugador experimentado de aventuras o lector del I 

cápitulo anterior, que lo más importante puede encontrarse | 
en las cosas mas comunes y de n>enor apariencia. I 

¿Cómo reaccionará? 1 

¿Qué entradas debemos prever? I 

Lo más probable será, que pruebe continuar con i 

instrucciones como INSPECCIONA BOSQUE, INSPECCIONA ARBOL, o 
INSPECCIONA PEDRUSCO. 

COGE ARBOL será una entrada menos probable; sin embargo, 
para no apoyar a los críticos de nuestros programas, debemos 
programar un mensaje del tipo **No tengo tanta fuerza.**. 
Además, informaciones frecuentes que muestren, que una 
entrada ha sido entendida, animan al aventurero para 
continuar el Juego. 

Por otra parte, sí el resultado de cada dos o tres 
entradas fuera el mensaje **¡No entiendo lo que quieres 
decir!*», el estímulo para apagar el ordenador sería 
demasiado fuerte. 

Por eso, en la práctica sólo proyectamos para los lugares 
1 y 2 la eni|s4Ón de varias informaciones para el Jugador, 
misión rápidamente realizada por una instrucción PRINT, 
porque en estos lugares aun no hemos previsto ninguna 
acción, sino que solo pretendíamos ampliar nuestro mundo. 

Pero una vez el Jugador haya entrado en el lugar 3 y haya 
descubierto la cabaña de madera, también la inspeccionara y 
descubrirá la estantería con la botella forrada. 
Naturalmente, está debe aparecer Junto con la estantería y 
la cabaña, en la descripción de la escena (*Veo ...*); este 
significa que debemos modificar su paradero. Otro quebradero 
de cabeza puede provocarnos la entrada **Coge 
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botella**; ahora debe volver a desaparecer la botella 
recién aparecida. No puede volver a su viejo paradero, ya 
que deberá ser listada cuando nuestro jugador efectúe un 
BALANCE. 

También es lógico que el Jugador no pueda proceder a 
Inspeccionar la botella en el lugar 1, ni tampoco en el 2. 

De todas formas, deberían rechazarse todas las entradas 
referentes a la botella, mientras ésta no se encuentre en 
Inmediata proximidad del jugador. 

Sin embargo, esto es cuestión de gustos, depende de cada 
programador. Se puede considerar, que la botella ya se 
encuentra en la estantería desde tiempos remotos, y lo que 
ocurre es que el Jugador no la ha visto hasta ahora. 

Pero si el jugador está obligado, por las numerosas 
sorpresas propias de una aventuras, a volver a empezar desde 
el principio, ya conoce la posición Inicial de diversos 
objetos, y se le puede permitir cogerlos, sin que antes 
hayan sido listados en la Información "Veo ...". 

De hecho, con ello Incluso se facilita la programación del 
proceso de coger, ya que hay una condición menos a 
comprobar. Pero, al Igual que la mayoría de los productores 
de aventuras, nos limitaremos a considerar, que sólo se 
pueden coger los objetos visibles. 

Así que la cabaña de madera sólo puede ser Inspeccionada 
por nuestro personaje principal si se encuentra en la 
proximidad. Descubriremos la miel después de coger la 
botella forrada con nuestras manos y abrirla. El oso sólo se 
comportara pacíficamente, si está distraído comiéndose la 
miel. 

Antes de ejecutar cualquier instrucción, debe comprobarse, 
si se cumplen todas estas condiciones. Incluso nuestro corto 
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programa de sólo seis lugares requerirá una gran cantidad 
de líneas de programa para ello. SI consideramos sólo los 
verbos Introducidos hasta aquí en el programa. Inspecciona, 
coge, pon, abre, utiliza, destruye, así como los diecisiete 
objetos, ya tenemos que programar acciones para 102 
dlíerentes entradas del Jugador. SI escribiésemos una tras 
otra todas estas líneas de programa, sin ningún borrador 
especial, sería fácil encontrar una explicación para los 
largos tiempos de ejecución del programa. Sin embargo, para 
mantenerlos relativamente cortos, dividiremos la parte del 
programa en varios bloques* 

En principio, disponemos de dos posibilidades distintas. 
Por un lado podríamos reservar la cantidad necesaria de 
líneas de programa para cada lugar, y reservar en ellas unas 
cuantas instrucciones para cada posible acción del Jugador. 
Esta técnica suele ser muy frecuente. Tiene la ventaja de 
ser muy rápida gracias a la ejecución directa de una 
instrucción, ya que esta no tiene que estar preparada 
previamente de alguna forma. Otra ventaja es, que el 
programa es muy claro que puede ampIIarse o editarse con 
facilidad, sin necesidad de consultar ninguna lista. SI 
desea emplear alguna vez esta ejecución de un programa de 
aventuras, la siguiente realización de nuestro lugar 1 debe 
bastarle como estímulo. Tenga en cuenta, que se trata de un 
ejemplo que no tiene nada que ver con nuestro borrador. Vaya 
con cuidado pues, en no escribir sobre líneas de nuestro 
programa confeccionado hasta ahora. 


100 PRINT "QUE DEBO HACER":INPUT ENTRA 
DA$ 

200 REM DIVIDIR ENTRADAS EN VERBOS Y OB 
JETOS (COMO CONVENIDO) 

300 ON LUGAR GOTO 1000, 2000, 3000, 400 
0, 5000, 6000, 

301 REM DEPENDIENDO DEL NUMERO DE LUGAR 
SALTAR A LUGAR CORRESPONDIENTE 
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1000 GRAPHICS 0: REM LUGAR 1 

1010 PRINT "ESTOY EN EL BOSQUE". 

1020 PRINT "VEO MUCHOS ARBOLES GRANDES" 
1030: 

1040 REM IMPRIMIR MAS OBJETOS 
1100 PRINT "PUEDO IR HACIA SUR, ESTE." 
1200 IF ENTRADA$="S" THEN LUGAR=6: GOTO 
100 

1210 IF ENTRADA$="E" THEN LUGAR 2: GOTO 
100 

1260 IFLEN(ENTRADAS)<3THENPRINT"HACIA A 
LLI NO CONDUCE NINGUN CAMIN0!":G0TO100 
1300 IF ENTRADA$="INV" OR "INVENTAR10"T 
HEN GOTO 200 

1400 IF VES="ABA" ANO 0BS="0S0"THEN PRI 
NT "NO VEO NADA ESPECIAL": GOTO 100 
1410 IF VE$="C0G" ANO 0BS="0S0"THEN PRI 
NT "NO TENGO TANTA FUERZA.": GOTO 100 

1999 PRINT "NO ENTIENDO LO QUE QUIERES 
DECIR>": GOTO 100 

2000 a partir de aquí tratamiento del I 
ugar 2 

3000 a partir de aquí tratamiento del I 
ugar 3 


SI se ha fijado bien en las líneas precedentes, o si las 
ha entrado en su AtarI, descubrirá que se puede confeccionar 
una aventura que funcione de manera aún más fácil, y se 
preguntará posiblemente, ¿por qué no hemos utilizado este 
borrador, que además puede entenderse sin necesidad de 
extensos comentarlos ? 

Bien, por un lado, las aventuras muy extensas requieren 
bastante más memoria, porque no podríamos evitar, ejecutar 
varias veces rutinas Idénticas, ya que, para explicarlo 
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un ejemplo conocido, debemos ser capaces de deposI+ar la 
botella en cada lugar (seis líneas de programa Idénticas), y 
también volver a cogerla. Frente a estas dbce líneas sólo 
existen dos lineas de programa en nuestro sistema de 
aventuras. Sólo este hecho justifica nuestra elección, pero 
también los argumentos de claridad y facilidad para editar 
pueden refutarse rápidamente. 

Imagínese que para la ampliación de la aventura se 
necesiten más botellas para continuar la acción, de manera 
que preferimos convertir, por este o cualquier otro motivo, 
la botella en un pequeño barril de madera. SI en este momento 
su aventura se componía de 40 lugares, ahora podrá convertir 
un "Coge botella" por un "Coge barril" en las numerosas 
líneas correspondientes; lo mismo vale para "Pon botella", 
"Abre botella" etc. 

SI por el contrario, ha seguido nuestro sistema de 
aventuras, basta con modificar tres letras dentro de nuestro 
string de la línea 180, y ¡listos! 


Olvidemos, pues, este método y continuemos con nuestra 
aventura. También hacemos que la acción transcurra en líneas 
de programa exactamente definidas, pero cada bloque contiene 
ahora el tratamiento de un sólo verbo. 

Nuestro motor ya ha averiguado los números de verbo y 
objeto, y por ello podemos dirigirnos directamente a estos 
bloques. Así es lógico, asignar líneas de programa a partir 
de 5000 a todas las líneas, que están ocupadas en ejecutar 
la Instrucción "Inspecciona". La acción "coge" se realiza 
correspondíentmente a partir de línea 6000. 

El motor realiza el control de la ejecución del programa 
con ayuda del número de verbo en la línea 2200: 

2190 REM INS COG PON ABR 
UTI DES 
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2200 ON VN GOTO 5000,6000,7000,8000,900 

0,10000 


Con la ílnea de programa 5000 comienza ahora el bloque 
"INSPECCIONA". Es fácil comprender que ello requiere mucho 
trabajo. 

No sólo debe emitirse la Información **EN LA CABAÑA HAY 
UNA ESTANTERIA VIEJA»* para contestar a la Instrucción 
**INSPECCIONA CABAÑA**, y aparecer la estantería como objeto 
visible. No, también debemos asegurar que la cabaña este 
disponible en el lugar visitado en este momento y 
transmitir, en caso necesario, un mensaje como ‘‘AQUI NO VEO 
NADA PARECIDO" al jugador. 

Estas reflexiones demuestran el trabajo que lleva la 
programación de aventuras. Pero afortunadamente, también 
pueden contestarse numerosas entradas diversas del jugador 
con una'sola línea de programa. 

Así que nuestra parte del programa, que procesa las 
acciones de Inspección del jugador, comprueba primero, si el 
objeto, sobre el cual se pide mas Información, se encuentra 
cerca del jugador, o sea, en el mismo lugar, o si está 
Incluso en su poder. En caso contrario, se puede proceder 
Inmediatamente a la entrada de la próxima jugada: 


5000 IF 0B(N)<>JUGA00R AND 0B(N)<>-1 TH 
EN GOTO 5900 

5900 REM OBJETO NO PRESENTE 

5990 PRINT "AQUI NO VEO NADA PARECIDO ! 

": GOTO 1080 
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LAS CONDICIONES 


Además de estas dos condiciones, pueden formularse otros 
supuestos válidos como criterio para la Ejecución de una 
acción, y sin los cuales una aventura no podrá llevarse a 
cabo: 

Objeto está en el lugar 

Objeto es llevado por el jugador 

Objeto no está en el lugar 
Flag activado 
Flag desactivado 

Jugador está en un Jugar determinado 

Como ya veremos más adelante, esta lista no exige 

integridad. Puede Imaginarse por ejemplo, una Inversión de 
la última condición,en la que determinadas acciones no 
puedan ejecutarse en un lugar concreto, pero si en cualquier 
otro lugar. 

Los flags aparecidos en este momento requieren una 

explicación. Se trata de Interruptores de señal, pero que en 
este caso sirven directamente al control de proceso del 
Juego, y que queremos realizar con ayuda de un campo 
adicional. También estas variables de campo deben poder 
adoptar sólo dos estados o valores: o está activada la 
bandera o flag, en cuyo caso el contenido de la variable 
debe ser -1, o esta desactivada, lo que debe corresponder a 
un cero. 

En la práctica, los usaremos para Identificar determinados 
estados: 

¿una puerta está abierta o cerrada? 

¿un obstáculo ha sido eliminado o no? 

¿un monstruo debe poner fin a las andanzas del jugador, o 
puede éste continuar el juego? 
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En la práctica de programación, sin embargo, la tormulaclón 
de una dnlca condición no suele bastar para clasificar la 
situación de manera Inconfundible* Se requieren 
combinaciones lógicas de varias condiciones para permitir, 
que algunas acciones no sean ejecutadas Incoherentemente y 
on un momento Inadecuado. 

Al hablar de estas operaciones lógicas, se trata de las 
combinaciones Y (AND) y 0 (OR). Referente a nuestra práctica 
de aventuras, esto significa, que deben cumplirse o ambas 
(AND), o sólo la una o la otra (OR) de dos o más 
combinaciones. SI no podemos renunciar a usar más de dos 
condiciones, tampoco podremos evitar los paréntesis. Un 
ejemplo debe Ilustrarlo: 


Pensemos en el explosivo en nuestar caja. Debe ser 
utilizado para quitarle al jugador la alegría de su rápido 
avance. 

Sin embargo, para jugar limpio es conveniente dar un aviso 
antes de que se produzca la explosión, emitiendo tras la 
Instrucción "Inspecciona explosivo" la Información "Parece 
ser muy explosivo". SI el jugador no desiste en cogerlo, a 
pesar de este aviso, nadie más que el mismo tendrá la culpa 
de su triste final . 

SI el jugador ha efectuado realmente esta entrada, el 
motor pone a disposición los números 1 (Inspecciona) y 9 
(explosivo). Ahora nuestro problema está en que no podo'iíos 
darnos por satisfechos con la inspección del lugar. No 
debemos olvidar, que el jugador no puede coger el explosivo, 
pero si la caja de madera, y si lleva consigo la caja de 
madera, también tiene el explosivo. Comprobemos pues, si el 
jugador so ha referido al explosivo Y (AND) si, a la vez, se 
encuentra la caja de madera (objeto numero 7) en el lugar de 
la acción 0 (OR) en el Inventarlo del aventurero. 
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£1 propio objeto de la acción (número 9) no esta" 
disponible, por lo que después de la línea 5000 se continua 
lo ejecución del programa en la línea 5900, 

Así que la ejecución de la Instrucción ’MnspeccIona 
explosivo** debe formularse de la siguiente manera: 

5904 IF N=9 AND (0B(7)=JU OR 0B(7)=-1) 

THEN PRINT ** ¡PARECE SER MUY EXPLOSIVO 
!**:G0T0 lOaO 

LAS ACCIONES 

El ejemplo anterior nos ha mostrado la ejecución de la 
acción más simple a realizar, que es la emisión de una 
Información al jugador. 

Pero esta Instrucción PRINT sólo suele acompañar a otras 
acciones, como manipulaciones de OBO, para confirmar al 
aventurero la ejecución de su instrucción a través de un 
mensaje. 

En contraposicló.i a esto. Instrucciones como Coge, Pon, 
Destruye, y también Abre significan siempre un cambio de 
posición para el objeto. Puede ser que éste sea llevado 
nuevamente con el Jugador, o que ahora pertenezca al 
Inventarlo de un determinado lugar; quizás Incluso 
desaparezca completamente del Juego. Imagínese el estupor 
del Jugador de la fiebre del oro, si por lo visto el oso ya 
ha saboreado la miel, mientras que la botella todavía no ha 
aparecido en ningún sitio. 

Otra acción también muy usada es el borrar o poner los ya 
mencionados flags (banderas), necesarios para crear 
progresivamente los supuestos de posteriores acciones. 
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Tampoco podemos olvidar en ningún caso, los condicionados 
cambios de paradero del Jugador, que son causados por arte 
de magia o por acciones Inofensivas. Una posterior 
ampliación de la fiebre del oro podría convertir la cueva 
del oso en un Inmenso laberinto de pasillos y que, después 
de entrar ** Inspecciona cueva'*, el jugador se encontrase en 
medio de la cueva, aunque no hubiese entrado en ella 
moviéndose en una determinada dirección. Pero, IncremeP'tando 
el trabajo de programación, nuestra aventura a sólo 
resultara ser más realista, porque ¿ cómo puede 
Inspeccionarse detenidamente una cueva, sin entrar antes én 
ella ? 


De manera parecida que con las condiciones, también aquí 
podemos confeccionar una lista do posibles acciones, que 
tampoco en este caso pretende ser completa. Sin embargo, se 
trata de una base suficiente, ya que es posible escribir 
buenas aventuras utilizando solo las condiciones y acciones 
presentadas. 


Emitir Información al jugador 

Objeto desaparece 

Objeto entra en Inventarlo 

Objeto aparece nuevamente en el lugar 

Flag es activado 

Flag es desactivado 

Jugador es trasladado a otro lugar 
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PROGRAMACION DE LA EJECUCION DE INSTRUCCIONES 


A continuación encontrará Indicaciones para ciertas 
particularidades, que deberán tenerse en cuenta al efectuar 
cada Instrucción. Sólo le explicaré algunas líneas típicas 
del programa, usted tendrá que extraer las restantes líneas 
del listado de la minlversión de la fiebre del oro al final 
de este capítulo. 


Acción: Inspecciona 

De momento está claro, que el resultado de la Inspección 
de un objeto siempre se comunica en forma de frase. 

A menudo se tratará de una frase que siempre se repite (No 
veo nada especial). Por esta razón, no emitimos directamente 
la Información para el Jugador, sino que asignamos el texto 
a una variable al Iniciar el programa y emitimos el 
contenido de ésta en el momento preciso. 

Puesto que nuestro editor sólo admite sin problemas 120 
caracteres para efectuar la entrada de líneas Basic, y que, 
por otra parte, además de las Informaciones, estas líneas 
también deben contener las condiciones, en algunos casos no 
podremos evitar tener que preparar también algunos mensajes 
que sólo serán requeridos una vez. 


600 REM ^♦♦**********#***»*#*#|^^iyj2y^j^g 

601 M1$=»'N0 VEO NADA ESPECIAL.” 

602 M2$=”N0 TENGO TANTA FUERZA.” 

603 M3$=” COMO TE IMAGINAS ESTO?” 

604 M4$=”EL OSO COGE LA MIEL Y DESAPARE 
CE EN” 

605 M5$=”EL FONDO DE LA CUEVA." 
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Ya hemos explicado anteriormente la línea 5000, la cual 
asegura, que mediante la comprobación del valor del objeto 
actual en OBO, el mencionado objeto se encuentra cerca del 
Jugador. 

SI esto se cumple, se averiguará la línea de programa que 
se ocupa de este objeto seg(jn el níjmero de objeto N. SI allí 
se cumplen todas las condiciones programadas, se procesará 
ol resto de la línea y después se continuará la ejecución 
del programa con la nueva estructuración de la pantalla: 

5002 IF N=1 THEN PRINT MU-.GOTO 1080 

5003 IF N=3 THEN PRINT MUiGOTO 1080 

5004 IF N=4 THEN PRINT”EN UN RINCON HAY 

UNA ESTANTERIA.”:0B(8)=JUGAD0R:G0T0 10 
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SI se Inspecciona la cabaña de madera (N=4), el jugador 
descubre la estantería. Hasta ahora, ésta estuvo en el lugar 
0, el almacén, y ahora es poslclonada en el lugar donde se 
encuentra el jugador. Por ello, el motor de la aventura 
omitirá, entre otras cosas, **una estantería desvencijada** 
al procesar las líneas lllO a 1200. 

Pepo también puede ocurrir, como en el caso de la 
estantería, que aparezca un objeto que el jugador pueda 
I levarse consigo. 

Entonces ya no bastaría una formulación como la efectuada 
en la línea 5004, puesen cada posterior Inspección de la 
estantería, la botella sería extraída automáticamente del 
Inventarlo y colocada otra vez en el lugar. 

Sólo podemos evitar este error, asegurándonos previamente, 
de que la botella aún no había aparecido en el juego, esto 
significa que todavía se encuentra en el almacén. 

5008 IF N=8 AND 0B(5)=0 THEN PRINT”EN L 

A ESTANTERIA HAY UNA BOTELLA FORRADA." 
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:0B(5)=JUGADOR:GOTO 1080 

5009 IF N=8 AND 0B(5)<>0 THEN PRINT Ml$ 

:GOTO 1080 

Aún en Inspecciones posteriores, el jugador ya no 
descubrirá nada especial (línea 5009). 

Otro ejemplo debe mostrar el uso de los flags. Cuando el 
jugador haya encontrado el arca del tesoro, ve que está se 
halla cerrada con una cadena de hierro. Después de eliminar 
este obstáculo, no podrá verse su valioso contenido, sin 
antes abrir la arca. Para aclarar estos tres estados al 
jugador, sería posible Introducir más objetos, tales como un 
arca cerrada con una cadena de hierro, un arca no cerrada y 
un arca abierta. Sin embargo, esta programación bastante 
laboriosa, que por otra parte también limita la memoria 
disponible, puede evitarse mediante el uso de Interruptores. 
Lo más práctico es confeccionar unas tablas durante la 
construcción del juego de aventuras, para que cambie 
realmente el flag correcto: 

Flag 0 -1 


1 cadena entera cadena destruida 

2 arca cerrada arca abierta 

Ahora usted mismo podrá entender, por qué se ha previsto 
solo 0 y ~1 como contenido, y por que no un único flag con 
diferentes cifras para cada estado. 

Naturalmente nos servimos del hecho de que una expresión 
verdadera siempre se representa mediante un -1 para el 
Interpretador Basic. Este hecho nos permite acortar las 
líneas de programa, en las Instrucciones IF no necesitaremos 
Indicar valores comparativos: 

IF FL(1)=-1 corresponde a IF FL(1) 

IF FL(I)= 0 corresponde a IF NOT FL(1) 


88 


Para nuestro ejemplo valen, pues, las siguientes líneas: 


5011 IF N=ll AND NOT FL(1) THEN PRINT ” 
ESTA CERRADA CON UNA CADENA DE HIERRO.» 
:G0T0 1080 

5012 IF N=ll AND FL(1) AND NOT FL(2) THE 
N PRINT »P0R FUERA NO VEO NADA ESPECIAL 
.»:G0T0 1080 

5013 IF N=ll AND FL(l) AND FL(2) AND 0B( 
12)=0 THEN PRINT "ESTA LLENA DE MONEDAS 
DE PLATA. ":0BC 12) = JUGADOR-.GOTO 1080 


Otro punto, al que deberemos dedicar especial atención, 
tiene su base en la Interpretación de nuestro análisis de 
palabras. 

Los objetos 1 y 2, completamente Idénticos, pertenecen a 
la decoración de los dos primeros lugares. SI se comprueba 
la entrada efectuada por el jugador, sólo podrá determinarse 
un 1 como número de objeto, lo cual no responde a los hechos 
cuando el jugador se encuentre en el lugar 2. 

Sin embargo, habíamos Introducido la línea 5000 para poder 
detectar correctamente los errores de entrada, que ahora 
también nos facilita el tratamiento de estos casos 
excepcionales. 

Así que solucionamos de la siguiente forma el problema 
** Inspecciona árbol*’ para el lugar 2: 


5901 IF N=1 AND JUGAD0R=2 THEN PRINT Ml$ 
:G0T0 1080 


Para finalizar esta rutina, debemos prever una última 
línea que será ejecutada sin ninguna condición, si no se han 
cumplido todas las condiciones necesarias en alguna de las 
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precedentes líneas de programa. Con ello se Interceptan las 
entradas no definidas del juego, y evitamos que si no se ha 
encontrado ninguna condición correspondiente, se procesen 
las líneas de los restantes verbos, perdiéndose entonces el 
control de la ejecución del programa. Incluso si olvidamos 
una acción Innecesaria para la ejecución* del juego de 
aventuras, el jugador nunca lo descubrirá: 

5990 PRINT "¡AQUI NO VEO NADA PARECIDO !” 

:G0T0 1080 


Acción: Coge 

Al Igual que un jugador sólo puede Inspeccionar un objeto 
que se encuentre cerca de él, también podra cogerlo 
sólamente si se encuentra en el mismo lugar que el jugador, 
o sí ya se encuentra en los bolsillos de éste. 

6000 IF 06(N)<>JUGADOR AND 0B(N)<>-1 TH 
EN GOTO 6900 

Según esto, sería muy fácil ejecutar esta orden. Sin 
embargo, deberíamos negarle esta posibilidad al aventurero 
para algunos objetos. 

Así pues, tendremos en cuenta qua un arca de hierro 
repleta es probablemente demasiado pesada para una sola 
persona. Tampoco podremos no hacer caso aún a Intentos del 
jugador tan absurdos como **Coge árbol**. 

6001 IF N=1 THEN PRINT M2$:G0T0 1080 
6005 IF N=n THEN PRINT M2$:G0T0 1080 

Naturalmente aún puede suceder algo peor, ya que debemos 
ponerle al jugador una cantidad suficiente de trampas como 
para no fací llar le una rápida victoria. Según nuestro guión. 
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el contacto con el explosivo debía producir una explosión y 
provocar el <1n Juego. Lo mismo sirve en el caso de que 
Intente apoderarse de las pepitas de oro sin antes haber 
oirecido un bocado exquisito al oso. Igualmente, el Intento 
de coger el oso también debería resultar fatal para el 
Jugador: 


6015 IF N=1 AND JUGA00R=5 THEN M0$="EL 
OSO ME HA MATADO .":G0T0 4500 
6018 IF N=17 AND NOT FL(3) THEN M0$="UN 
OSO SE LANZA SOBRE MI."; GOTO 4500 
6900 IF N=9 AND (0B(7)=JUGADR0 OR 0B(7) 
=-1) THEN M0$=""EL EXPLOSIVO HA ESTALL 
ADO CON EL CON-";PRINT"TACTO !";G0T0 45 
00 


Nota; En la línea 4500 empieza una rutt 
na que será llamada en caso de no ganar 
el Juego. En esta rutina, M0$ esta pre¬ 
vista para una Información aclaratoria. 

El flag 3 es activado en el momento, en 
que el oso se apodere de la miel. 


SI no hay nada que evite que el Jugador se apodere de 
cualquier objeto de nuestra aventura, sólo debemos asignar 
al objeto correspondiente el nuevo número de situación, un 
- 1 ; 

6010 IF N=5 THEN 0B{5)=-1 ;PR1NT "O.K."; 

GOTO 1080 
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Acción: Pon 


En algún momento, el Jugador querrá volver a deshacerse de 
estos objetos, bien porque quiera utilizarlos bien porque 
nosotros, como programadores, le hayamos, limitado su 
capacidad de carga. 

En la práctica, la rutina Pon no presenta apenas 
problemas. Además, es convincente por ser tan corta. 

La Cínica condición, es, que el objeto en cuestión debe 
estar en posesión del jugador, supuesto que se comprobará en 
la línea 7000: 

7000 IF 0B(N)<>-1 THEN PRINT ”¿ PERO SI 
NO TENGO NADA DE ESTO !”:G0T0 1080 
7900 OB(N)=J UGADOR:PRI NT”0.K.”:GOTO1080 


Los errores producidos por el jugador son detectados 
inmediatamente y registrados correspondientemente. Si el 
objeto se encontraba en el Inventario, se le asignará un 
nuevo paradero, modificando el contenido de OBO. 

En principio hay suficiente con estas dos líneas. Sin 
embargo, puede ser necesario efectuar otras acciones además 
del cambio de posición. En fiebre del oro, por ejemplo, 
habíamos previsto, que el oso se llevase la botella y 
desapareciese con ella en las profundidades de la cueva. 

Naturalmente, esta acción sólo puede ejecutarse, si el 
jugador se encuentra en el lugar 5 en este momento. En 
cualquier otro lugar, esta orden también será ejecutada con 
la línea 7900. 

7020 IF N=5 AND JUGAD0R=5 THEN 0B(5)=0: 

FL(3)=-1:PRINT M4$:PRINT M5$:0B(14)=0: 

GOTO 1080 
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Acción: Abre 

Ya al principio de esta parte del programa se encuentra el 
conocido test que sirve para evitar errores técnicos. Por 
otra parte es necesario comprobar tanto el lugar como el 
Inventario. Al fin y al cabo, no es necesario que el jugador 
coja una puerta antes de poder abrirla, condición que puede 
ser imprescindible cuando se trate de una botella: 

8000 IF 0B(N)<>JUGAD0R AND 0B(N)<>-1 TH 

EN PRINT «AQUI NO HAY NADA PARECIDO.'': 

GOTO 1080 

La propia acción suele constar de la activación de un flag 
y de la emisión de un mensaje: 

8025 IF N=ll and FL(1) THEN PRINT «O.K. 

- LA TAPA CAE HACIA ATRAS.'';FL(2)=-1 :G 

OTO 1080 

Tampoco podemos olvidar acciones sin importancia, pero que 
son posibles tal como están las cosas. Como ejemplo puede 
servir otra vez nuestra botella. Un aventurero que piense 
con lógica puede querer abrirla antes de inspeccionarla más 
de cerca, y seguramente se sorprenderáa mucho, si no puede 
conseguirlo sólo porque nosotros lo consideramos 
Improcedente en relación a la posterior marcha del juego: 

8010 IF N=5 THEN PRINT •'O.K'':GOTO 1080 

El final de este bloque permite que, además de entradas 
técnicas erróneas, también puedan detectarse imposibles en 
cuanto al contenido, tales como "Abre miel". 

8999 PRINT "NO ENTIENDO LO QUE QUIERES 

DEC IR.":GOTO 1080 
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RESUMEN 


Espero que estas explicaciones sobre las acciones más 
corrientes le hayan servido para entender la ejecución de la 
propia programación de Juegos. En principio, se puede 
resumir afirmando, que cada acción aislada está encerrada 
entre dos líneas de programa. 

Así se comprueba, al principio de un bloque, si la 
ejecución de la acción es posible desde el punto de vista 
técnico. Para finalizar, se asegura que la marcha del 
programa pueda continuar correctamente aún cuando aparezca 
cualquier error. 

El reconocimiento de las correctas condiciones para la 
ejecución de una orden suele ser, al Igual que la propia 
acción, una cuestión fácilmente programadle, que además ha 
sido estandarizada en nuestro sistema de aventuras. El 
siguiente esquema deberá servirle de ayuda para realizar su 
primer juego de aventuras: 

CONDICION EN PROGRAMA BASIC 


Objeto está en el lugar 

Objeto es llevado por jugador 

Objeto no está en el lugar 

Flag está activado 

Flag no está activado 

Jugador está en un lugar determinado 


OB(objeto)=JU 
OB(objeto)=-l 
OB(objeto)<>JU 
FL(x)=-l 
FL(x)=0 

JU=número lugar 


ACCIONES 


EN PROGRAMA BASIC 


Emitir Información para el jugador 

Objeto desaparece 

Objeto entra en inventario 

Objeto aparece de nuevo en el lugar 

Se activa flag 

Se desactiva flag 

Jugador es trasladado a otro lugar 


PRINT" o M$ 

(DB (ob jeto)=0 
OB(ob jeto)=-1 
OB(objeto)=JU 
FL(x)=-l 
FL(x)=0 

JU=número lugar 
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LOS ULTIMOS PASOS 


Antes de que nuestro juego de aventuras responda a las 
Imaginaciones desarrolladas en el capítulo 2, aún debemos 
hablar de otras tres partes del programa. 

Para una marcha correcta del juego, es imprescindible 
proporcionar al jugador la posibilidad de efectuar un rápido 
Inventarlo. 

Será absolutamente posible efectuar esta acción de la 
misma manera que el tratamiento de los verbos restantes. Sin 
embargo, ya que en este caso se trata de una función básica 
<k» los programas de aventuras, ampliaremos nuestro motor de 
forma adecuada. 


Inventarlo 

El Inventario pertenece a las llamadas Instrucciones de 
una palabra, al Igual que las rutinas de grabación y de 
carga del estado del juego, que se confeccionarán más 
adelante. Hemos dejado bastante espacio para esta parte del 
programa entre las líneas’ 1480 (final de la rutina de 
movimiento) y 2000 (análisis de la entrada). 

Para evitar que nuestro motor este ocupado un tiempo 
Innecesario en comparar cada jugada con las órdenes de este 
grupo especial, decidimos primeramente, si se trata de una 
(te estas Instrucciones especiales o de una entrada regular. 

La entrada efectuada normalmente por el jugador tiene una 
longitud mayor de ocho letras. Por ello partimos de la 
%uposlclón, de que se trata de una orden de una palabra si 
lo longitud de la entrada es Inferior: 

1480 IF LEN(ENTRADAS)>8 THEN GOTO 2000 
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SI la entrada del Jugador no está formada por una 
combinación regular de verbo/objeto, entonces se repasarán 
secuenciaImente todas las líneas donde comience el 
tratamiento de una Instrucción de una palabra, hasta que 
finalmente se determine la coincidencia de las tres primeras 
letras. 

En la práctica, la ejecución del Inventarlo se compone de 
un simple bucle, que muestra en la pantalla todos aquellos 
objetos del Juego de aventuras cuyo paradero está señalizado 
con -1: 

1499 REM *******♦**♦♦*INICIO INVENTARIO 

1500 IF ENTRADA$( 1,3)<>'»INV” THEN GOTO 

2000 

1510 PRINT*'LLEV0 CONMIGO LO SIGUIENTE:" 

1520 FOR 1=1 TO AO 

1530 IF 0B(I)=-1 THEN GOSUB 300+1:PRINT 

TS 

1540 NEXT I 

1550 GOTO 1080 

1560 REM *+**************pIN INVENTARIO 


Los títulos 

Desde el punto de vista puramente técnico, con estas 
líneas ha terminado la confección de nuestro programa. Ya 
disponemos de todas las funciones deseadas y podemos empezar 
a jugar una partida. Pero, ¿cuánto tiempo debe vagar el 
aventurero por nuestro mundo? ¿Cuándo llegará a la meta? 

En cuanto a las acciones, la minlversión de fiebre del oro 
acabara, cuando tanto las pepitas de oro como las monedas de 
plata están en posesión del jugador. 
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En este caso, basta una única línea Basic para Impedir 
cualquier entrada posterior y dirigirse a una parte del 
programa, donde se informa al jugador de su victoria y da 
por finalizado el Juego. 

1340 IF 0B(12)=-1 AND 0B(17)=“1 THEN GO 
TO 4800 

Sin embargo, los juegos de aventuras suelen tener un final 
muy distinto, menos glorioso. Puesto que también muchos de 
los Jugadores de nuestros programas se verán obligados a 
finalizar la partida antes de lo previsto, programaremos una 
nueva imagen del final a partir de la línea 4500. 

Al ejecutar las acciones que finalizan el juego, ye 
habíamos preparado un mensaje adecuado, de manera que el 
Jugador no se quedase sin conocer la causa de su fracaso. 

4500 GRAPHICS 0:REM **** JUGADOR MUERTO 
4600 PRINT ”¡ SOLO FALTABA ESTO !*’:PRIN 
T :PRINT M0$ 

4610 PRINT :PRINT ESTOY MUERTO !* *:PR 
INT 

4620 PRINT ” QUIERE QUE LO INTENTE OTR 
A VEZ ”;:INPUT ENTRADAS 
4630 IF ENTRADA$(l,l )="S" THEN CLR :G0T 
0 100 

4640 GOTO 1960 

La Inclusión de la Información Individual en MOS nos 
permite utilizar esta imagen titular en cada situación y en 
cada aventura. Sería muy poco laborioso efectuar 
modificaciones, en caso de que éstas fueran necesarias. Por 
esta razón, las líneas mencionadas, al igual que el mensaje 
victorioso a partir de 4800, pueden ser consideradas como 
ampliación adicional de nuestra aventura. 

Además tengamos en cuenta, que no es normal cargar y 
ejecutar juegos de aventuras en poco tiempos. 
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Programemos , para terminar, final de programa regular. 

Aunque este software se encuentre en el mercado, el hecho 
de poder salir del programa pulsando simplemente la tecla 
Break o Reset, no demuestra precisamente el fácil manejo del 
mismo. 

Por ello Introducimos otra Instrucción de una sola palabra 
en nuestro sistema; 


1500 IF ENTRADA$(1,3)<>"INV” THEN GOTO 
1950 

1950 IF ENTRADAS(1,3)<>”FIN'‘ THEN GOTO 
2000 

1960 GRAPHICS OrPRINT "¡EL AUTOR LE DE 
SEA MAS SUERTE PARA**:PRINT **jLA PROXIMA 
VEZ!’»;PRINT iPRINT iPRINT :END 


En cuanto a su significado, éstas son las últimas líneas 
de nuestro programa. Hemos realizado todas las versiones 
imaginables sobre el final del juego. Pero, ¿cómo será el 
principio de nuestra obra? 


SI ejecutamos nuestro programa tal como está en este 
momento, su primera acción consistirá en preparar las 
variables. Después nos encontraremos en pleno programa y es 
posible, que un Inexperto aficionado a las aventuras 
entienda que el sentido del juego consiste en realizar una 
excursión ("slghtseelng tour”) a través de un mundo simulado 
eIectrónlcamente. 

Por ello tengamos en cuenta, que la primera Impresión 
suele ser decisiva. 
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Pues, antes de dar por terminado nuestro programa, nos 
tomaremos la molestia de equiparlo con uno o varios títulos. 

El primer título tendrá la misión de explicar escueta pero 
inteligiblemente, sobre los bytes que se encuentran en la 
memoria, nombrar título y clase del programa, y nombrar a 
los autores del mismo. 

La próxima imagen será emitida en pantalla antes de 
Inicial Izar las variables. Durante este período de tiempo, 
este título puede dar Información sobre el objetivo que 
deberá alcanzar el jugador, e Introducirlo en la acción del 
juego. 

Sin embargo, si la solución del objetivo a alcanzar 
pertenece a la Idea del juego, faltará este letrero, y 
seguidamente se añadirá al título una explicación de los 
juegos de aventuras, que en otro caso deberían ImpIementarse 
en forma de una tercera Imagen titular. 

¿Se acuerda como fue, cuando usted tuvo la primera aventura 
en sus manos y en la memoria del ordenador? ¿Conoció el 
sentido y objetivo de estos programas, o estuvo sentado 
delante de su ordenador sin saber que hacer? 

No olvidemos, que siempre habrá principlantes. 
Principlantes que se alegran, si después de enchufar el 
ordenador pueden cargar e Iniciar un programa sin que 
aparezcan mensajes de error. Al fin y al cabo, programar una 
Instrucción básica de juego sólo requiere un poco de trabajo 
adicional. Vayamos pues a efectuarlo, y no excusemos la 
falta de estas Instrucciones diciendo que el descubrimiento 
de las mismas ya supone el primer obstáculo del juego. 

A tal fin, disponemos de las líneas de programa 10 ~ 100, 
así como de 700 - 900 
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Para que sea más razonable. Introducimos las explicaciones 
generales en un subprograma, que nos permite la posterior 
ampliación del motor de la aventura con el comando 
INStruccIones. El aventurero puede reclamar ahora las reglas 
generales de juego siempre que quiera, sin necesidad de 
Interrumpir la partida. 


ADVERTENCIAS SOBRE EL SIGUIENTE LISTADO 

Después de haber entrado las siguentes líneas en su AtarI, 
usted dispondrá de la mi ni versión de fiebre del oro capaz de 
funcionar. Pero debe tener en cuenta, que sólo se trata de 
lineas adicionales de programa, y que todas las líneas 
explicadas en el texto anterior deben hallarse ya en la 
memoria. 

Usted verá que, con ayuda de las técnicas que le hemos 
presentado hasta ahora, ya podrá desarrollar sofisticados 
juegos de aventuras, que no tienen nada que envidiar al 
correspondiente software que puede adquirirse en los 
comercios. 

Depende de usted, si por ahora desea dejar de lado este 
libro y desarrollar un propio juego de aventuras, o si 
prefiere conocer más detalles qué'^uedan transformar una 
buena aventura a una de perfecta. 
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1 REM FIEBRE DEL ORO,MINIVERSION;ATAR1 

2 REM <C) WALKOWIAK, OCTUBRE 1904 

3 REM- 

10 GRAPHICS 0;S£TC0L0R 2,1,O:SETCOLOR 
4,1,0:F0R 1=1 TP 9;PRINT :NEXT I 
20 PRINT 

II 

30 PRINT " FIEBRE DEL O 
R O" 

40 PRINT 

II 

50 PRI NT •' MINIVERSIDN 1.0 

II 

60 PRINT " (C) 1904 BY WALKOWIA 

K ■’ 

70 PRINT •• 

** • 

80 FOR 1 = 1 TO 3000 
90 NEXT l 

100 REM **<:*<(»»» DATOS DE l.A AVENTURA 
lio AR=6:A0=18 

150 DIM LOGARA(80),PASADA(6,6)jDIRECCI 
ONt(36),ENTRADA»(20),T»(40 >,OB(AO),BLA 
NC0S»(38),DZ»<50),ZENDE»(3),FL<5) 

160 DIM VERBOS»(40),EVERBO»(20),EOBJ ET 
O»(20).OBJETOS»(120),M0»(40),M1»<30),M 
2»(30),M3»(30),M4»(3á),M5»(38) 

190 GOTO 600 

318 T»="UNA BARRA DE HIERRO":RETURN 
410 DATA 1,2,2,3,O,O,3,O,O,O,O,O,5,O,4 
,6,5,0 

699 REM *»»»»*» TITULO 2: INTRODUCCION 

700 GRAPHICS 0:SETC0L0R 2,1,O:SETCOLOR 
4,1,0 

710 PRINT "Bienvenido a la miniversion 
de":PRINT “FIEBRE DEL ORO!“:PRINT 
720 FOR 1=1 TO 37:PRINT CHR»<13);:NEXT 
IrPRINT 

730 PRINT "Hace unos di as, y mientras 
probaba":PRINT "suerte en un mundo nue 
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vo, Ud encontró" 

740 PRINT "a un viejo moribundo al que 
atendí o":PRINT "en las ultimas horas 
de su vida." 

750 PRINT "Agradecido por el acto, el 
viejo le" 

760 PRINT "hablo de una mina de ore» qu 
e poseía y": PRINT "de parte de la -fort 
una que al 1 i tenia" 

770 PRINT "escondida.":PRINT "Ud ha su 
perario infinidad de p€‘liQros” 

780 PRINT "hasta dar con ella; pronto 
aJranzara":PRINT "su objetivo y podra 
comprobar, si lo" 

785 PRINT "que el viejo deci a era rier 
to, o si":PRINT "solo se trataba »le •.m 
sueno del 3rante":PRINT 
790 FOR 1=1 TO 37:PRINT CHRí(13);:NEXT 
I:PRINT 

795 PRINT "DESFA RECIBIR CONSEJOS PARA 
CONTINUAR";:INPUT EN I RADA* 

79B IF ENTRADA*(1,1)="S" THEN BOSÜb 80 

o 

799 GOTO 900 

BOO GRAPH1C-S 0: SETCOLOR 2,1,0: SEI COLOR 
4,1,0 

820 PRINT " ATARI - VENTURES 

":PRINT " (C) 1984 BY JO 

ERG WAI KOWIAK ";RFM INVFRS 

830 PRINT :PRINT "Imagínese un robot a 
1 que puede con- trolar con numerosos 
comandos. Yo soy" 

840 PFiINT "este robot y me pondré en s 
u lugar" 

850 PRINT "para enfrentarme a todos lo 
s peliigros de las mas excitantes avent 
ur as." 

855 PRINT "Para que pueda manejarme co 
modamente, le describiré en cada mam»3n 
tD la 5i“" 
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860 PRINT "tuacion en que me encuentre 
.":PRINT "A continuación, Ud me indica 
con dos" 

863 PRINT "palabras, como por ejemplo 
INSPECCIQ- NA PUERTA, COGE CUCHILLO, 1 
o que deba":PRINT "hacer." 

870 PRINT :PRINT "Ademas entiendo las 
ordenes:" 

880 PRINT "INVENTARIO y FIN.":PRINT 
890 PRINT "POR FAVOR, F'ULSE <RETURN> Y 
INPUT ENTRADA*: GRAPHICS 0; FíETüR 
N ;REM INVERS 

1000 GRAPHICS 0:5ETCOLOR 2 , 1,0:SETCOLO 
R 4,1,0:GOTO 1020 
1030 T*="" 

1500 IF ENTRADA* (1,3) O"INV" THEN GOTO 
1900 

1900 IF ENTRADA*(1,3)<>"INS" THEN GOTO 
1950 

1910 GOGUB 800 
1920 GOTO 1080 

1999 REM »*»*»»»**»»* SEPARAR ENTRADA 

2060 VN=0:N=0 

2070 EVERB0*=FVERBO*(1,3) 

2080 EOBJETO*=EOBJErO*(l,3) 

4800 GRAPHICS 0 

4810 PRINT "ENHORABUENA!" 

4820 PRINT :PRINT :PRIM "HA RESUELTO 
EL PROBLEMA PLANTEADO" : PRINT : PRINT " 
PUEDE AFRONTAR UNA NUEVA AVENTURA." 
4840 PRINT :PRINT :PRINT :END 
4c?99 REM » EJECUTAR JUGADAS DE JUGADOR 

5005 IF N=5 THEN PRINT "LA BOTEU.A EBT 
A L LENA DE MIEL.":GOTO 1080 

5006 IF N=6 THEN PRINT MI*:GOTO 1080 

5007 ir N=7 AND 0B(9)=0 THEN FRIN1 "EN 
LA CAJA HAY EXPLOS IVO.":GOTO 1080 

5010 IF N=10 THEN PRINT "EN El. AGUJERO 
HAY UN ARCA DE HIERRO.":OB(l1>^JUGADO 
R;G0T0 1080 
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bOi4 IF N=12 THf'N PRINT "ES JUtílO LO 
UE Si iSCABA ! ! " : GOTO 1OQO 
SOlf-j ir N-J3 THEN PRINT "HL- ASUSTADO 
UN OSO. " : 08 (14) ~.l UTjADOK; GOTO 1 OSO 
50i/ IF N=15 THEN FRINT "EN MEDIO HA' 
UN AGU.I ERO. " : 08 < 10) =.71JGADOR: GOTO 108i.> 
5010 TF N = 1<S THEN PRÍNT "rARFCEN SER 
UY RESISTENTES. GOTO lOOu 
5019 ir N=17 THEN TRINI "SF TRATA DE 
KO Pl IRQ » " : GOTO 1080 

5902 ir N=-6 AND 08(5)=-l THI N PRINT ’• 
S DÜL.CE Y SABROSA, GOTO 1080 

5903 IF N-<f. AND 0B<5)-;>-J THEN PRINT 
Nü TENGO f11EL ! " : GOTO 1080 

5910 ir N--=l AND JUGAD0R=5 AND 08(14)=' 
THEN PRINT "PARETE QUE DESPIERTO SU 
PE ) ITO. : GOTO 1080 

A002 IF N=3 THEN PRINT M2«;G0T0 1080 
AC'03 IF N=4 THÍ-N PKINT MT.Ítf'Uin 1080 
0004 IF N=8 THEN PFdNT M2T:GDT0 1080, 

6006 IF N~10 THEN PRINT M3*;GCJTn IODO 

6007 IF N=13 THEN PRINT rl3T:G0Tn lOÜC- 
6000 ir N^15 THEN PRINT M2T.:E0T0 lO80 

6011 IF N=6 THEN OB(5)=~1:PRINT "O.K. 

:GOTO 1080 

6012 IF N-/’ THF N 08 (7 ) ”-J : PRl MI “O.lí. 
rGOTO 1080 

6014 IF N-12 I HEM UB (1 2) 1 : PRINT "O. 

. " : LjE) ro 1080 

¿>016 .U N=16 THEN UB (1 8) 1: PRINT "U, 

.":GOTfJ 1080 

6017 IF N=17 and TI (3) THEN FR'INI "O. 

. " : OB (17) =-1: GOTO 1OSC. 

/-.999 r-FINT "AÜÜT NO VEO NADA F-AFÍFClOft 
":GrjTO 1080 

7010 IF N-6 AND JUGADORAS THEN OB(¿H- 
;FL (3)-=-l ¡PRINT M4^:PFfINI M5$;QBcl4)=; 
iGOin ]OBO 

8005 TF N=4 AND JUGAD0R=3 THEN PRINT 
i-A CABANA YA ESTABA AB.[ER IA. : GOTO lO 
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Bovo IF H^-11 AND NOl FLd) I HFJ'l PR'fNI 
•'. Y CADENA NO 1.0 PTR'M f TE ' " : GOTO 
900 -) Rfc'M «i»»»* ***♦*♦*» VERBO •^UlJl 1/AR 
9010 N--16 AND ..[nOAD0R=4 THEN 1-fUNf 

'•I A O'Dt.MA SE PHM-r.’dfl (1) •*• 1 : GÜ MlO 

■. 791 /',■ PRINT "NO KNTIENDO i.O ÜUC üMU '-.r.-> 
DE C l R ' " : RFj T O 1080 

lOOOO IF N=1E5 AND JUE ADr'rc^4 AND ÜB < 1H5 
=-l THEN PRINT "LA CADENA SE RGMP} .";>- 
I (n~-l:(-ÜTO 1080 

lOOlO IF N=l& AND .Jiir.GDür<=4 AND 08(18) 
<>-l THEM PRINT "NO "FNEO NIMI-.UNA BAF l> 
A DE HIERRO. GOTO l.HO 

1U999 I'RÍNT "NO ENl lENDÜ MI QUE ClUIfe D» 
3 decir !■': GOTO 1000 
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CAPITULO 4 
- PERFECCIONAMIENTO 


107 









ll 



I 


DE LA BUENA A LA PERFECTA AVENTURA 


Sí usted ha Jugado con la mlnlverslón de fiebre del oro, o 
sí usted mismo ha confeccionado una aventura partiendo de la 
base de las técnicas descritas hasta ahora, coincidirá 
conmigo en que se ha alcanzado perfectamente el estándar de 
programas corrientes de la clase aventuras. 

Aún así pueden encontrarse a veces juegos de aventuras que 
ofrecen extras adicionales. Para poder superar la 
competencia, se simplificó su manejo, o se busco la forma de 
añadir también en la realización del Juego pequeño detalles 
cotidianos, que lograban complicar más aún la vida del 
jugador. 

También existen algunos programas, que con ayuda del 
correspondiente dispendio en publicidad, llaman la atención 
sobre sus características especiales que en realidad no 
existen. 

También se activa el oído del Jugador con aislados beeps y 
plps, que señalan una orden entendida o no ejecutable por 
medio del apoyo acústico de objetos visibles hasta la 

imitación de la voz humana. Desgraciadamente, la utilidad de 
estos extras es nula para el Juego, por eso vale la pena si 
es necesario sacrificar su dinero por el afán de conseguir 
efectos especiales que llenan la memoria, o si prefiere un 
mundo de aventuras ampliado por la memoria ahorrada. 


FACILIDAD DE MANEJO 

Esta siempre se exige en los programas comercla les,¿ por 
íué no también para los Juegos? 

Realmente existen juegos de aventuras que ni siquiera 
nforman al Jugador sobre la manera en que puede salir de un 
lugar peligroso. Sólo están esperando llevarlo a la 
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desesperación con la aparición del mensaje "No puedes Ir 
en esa dirección. - You can't go In that directlon.", que 
emiten después de que el jugador haya efectuado entradas de 
diversos puntos cardinales. 

Bien, es lógico que el jugador se desespere. Sin embargo, 
parece, que estos programas han sido escritos para atraer al 
aficlonaado hacia las aventuras con el anuncio "jLe 
garantizamos, que necesitará meses para poder conocer todos 
los lugares de esta aventura!" e inducirle a comprarlo. 

Afortunadamente, esta crítica no puede afectar a nuestro 
sistema de aventuras. Sin embargo, la falta de cualquier 
posibilidad de poder grabar el estado actual de la partida, 
condiciona una pérdida progresiva del Interés por el juego. 

Desgraciadamente, esto ocurre con más frecuencia en 
aventuras cuya confección nos ha comportado más trabajo, y 
de cuya complejidad y trampas puestas de forma Inteligente 
estamos especialmente orgullosos* 

Echémos pues una mano al jugador, que de todos modos 
necesitará tener más de siete vidas, para conocer todas las 
formas posibles de morir de la aventura, creando además 
todas las condiciones técnicas necesarias para poder 
continuar el juego habiendo adquirido otra experiencia a 
partir de este momento. SI después, el Jugador no hace uso 
de esta ampliación razonable en el debido momento, ya sólo 
puede enojarse consigo mismo. 

Además, con estas rutinas evitamos un corte en la propia 
carne, ya que durante la fase de verificación de un juego de 
aventuras se presentará repetidas veces la necesidad de 
Introducir pequeños cambios de programa, que desgraciadamente 
también aniquilan los contenidos de todas las variables. 
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Entonces la única solución que nos queda es empezar de 
nuevo con Run y repetir todas las entradas necesarias para 
volver a entrar en el lugar donde se produjo el error, y 
para llegar a la conclusión de la Incapacidad de esta nueva 
versión para superar a la anterior. 


SAVP GAME / LOAD GAME 

Pensemos primero en que se diferencia una determinada 
escena del juego de la posición Inicial. 

Inmediatamente recordamos los movimientos del jugador de 
manera más o menos definida dentro nuestro mundo. También 
pensarnos en los objetos que éste ha recogido, colocado, 
destruido, gastado o comido, o sea, en objetos que ya no 
existen, así como en objetos que han aparecido recientemente 
en el juego. 

Además de estos contenidos de. variables visibles, y quizás 
menos Importantes por ser controlables, también debemos 
salvar las modificaciones hechas para controlar la marcha 
del juego. En caso contrario, puede ocurrir que una acción 
no alcance éxito deseado a pesar de disponer de todos los 
objetos necesarios para ello. 

Pensemos solamente en los flags o banderas, que no sólo 
pueden usarse siempre para la marcha de una acción 
coherente, sino Incluso para controlar sucesos aparentemente 
Incoherentes. 

Lo mismo sirve también para nuestra tabla de direcciones. 
Incluso aquí es perfectamente normal efectuar modificaciones 
substanciales, como veremos más adelante. 
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Dicho brevemente: Los contenidos de las variables JUGADOR, 
0B(), FL() y PASADA(,) deben grabarse en forma de fichero 
secuencia I en un diskette o cinta antes de Interrumpir el 
juego. 


INCISO: MEMORIZACION EXTERNA DE DATOS 

Además de la memorización Interna de datos, donde los 
datos son depositados en la memoria de trabajo propia del 
CPU que, por consiguiente, siempre dispone de ellos; para 
tratar con datos de cualquier tipo también se necesitan 
memorias externas que amplían i a memoria del ordenador casi 
indefinidamente, y que sirven esencialmente para archivar y 
disponer grandes cantidades de datos. Como miembros de esta 
familia pueden nombrarse por ejemplo, las tarjetas y cintas 
perforadas, cintas magnéticas, unidades de disco o cilindro, 
así como nuestro floppy 1050 o el cassete Atari 1010. 

Además de las diversas capacidades y tiempos de acceso, 
también pueden establecerse diferencias dentro (a forma de 
almacenar los datos. 

Los equipos de memoria, tales como una per(oradora/lectora 
de tarjetas o como un cassete de datos, trabajan con ios 
llamados ficheros secuencia les, y pueden comparase más bien 
con un antiguo rollo de papiro, mientras que una unidad de 
disco o diskette suele trabajar con ficheros relativos, que 
le asemejan más a un fichero con fichas corrientes. 

Ambos procedimientos tienen sus ventajas e inconvenientes, 
que se aprecian especialmente en su correspondiente cantidad 
de memoria ocupada y en el tiempo empleado en encontar un 
determinado registro. 

Así, cada dirección de un fichero de clientes requiere 
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rdlurddHMrpr L.L .a, ,ae d.acCda 

dol cliente 234, se coge simplemente la ficha numero 23 , y 

desde el principio todas las direcciones hasta llegar a 
234. 

rst^'a menc.6n de gue el 

J-to el o en"dos de nuestras 

rr^rhles^oTas o^y v^er a cargarlos mSs tarde. Esto 
"glmca, gue no necesitamos métodos especiales de acceso. 


SAVE GAME 

u tr..».sl6n * d.to. s. .frtu.ré por 

de flags utilizados, pues también a este ouc 


poder asignar un valor final. 

Además debemos proceder 
programa, para Introducir la 
especiales en la nueva rutina: 

110 AR=6:A0=18:AF=3 

1500 IF ENTRADA$(1,3)<>"INV" 
1600 

SI con la última entrada del 


a modificar la línea 1500 del 
consulta de las Instrucciones 

THEN GOTO 

jugador no se trataba con la 
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Instrucción Inventarlo, se efectuarán algunos saltos hasta 
determinar la identidad con una de las instrucciones de una 
sola palabra: 

1599 REM **^*****^^****^**** SAVE GAME 

1600 IF ENTRADAS(1,3)<>"SAV" THEN GOTO 

1700 

1699 REM ******************** LOAD GAME 

1700 IF ENTRADASd ,3)<>”L0A*’ THEN GOTO 

1900 

Antes de que el sistema operativo de nuestro ordenador 
pueda transmitir los datos, se deberá equipar previamente 
con algunas Ínformacione¿, tales como la dirección de 
transmisión, el camino de transporte y dirección; misión que 
ejecuta la instrucción OREN. 

1620 0PENdtl,8,0,"D:GAME'’ 

Después de ejecutar esta línea, se dispone de un fichero 
de datos en el diskette CD:), en el que ahora puede 
escribirse secuencial mente (8)« 

En el caso de que usted utilice cassette, sustituya ”D:” 
por ”C:". 


Después de estos preparativos, ya no hay nada que Impida 
la transmisión de datos* La salida de datos hacia el 
diskette se efectúa de forma parecida a una salida hacia la 
pantalla. Sólo debe desviarse la Instrucción PRINT indicando 
un número de fichero ( 1). 

Antes de volver al programa principal, una Instrucción 
GLOSE final nos protegerá de errores que puedan producirse 
póster iormente• 

930 FOR 1=1 TO AF:FLCI)=0:NEXT I 


114 


1625 PRINT tfl,JUGADOR 

1630 FOR 1=1 TO AO 

1631 PRINT #1,0B(I) 

1632 NEXT I 

1635 FOR LUGAR=1 TO AR 

1636 FOR DIRECCI0N=1 TO 6 

1637 PRINT ttl,PASADA(LUGAR,DIRECCION) 

1638 NEXT DIRECCION 

1639 NEXT LUGAR 

1645 FOR 1=1 TO AF 

1646 PRINT #1,FL(I) 

1647 NEXT I 
1650 GLOSE ífl 
1670 GOTO 1080 


LOAD GAME 


Para reconstruir una situación determinada es necesario 
asignar nuevamente estos datos a las correspondientes 
variables, misión de la que se encarga una casi Idéntica 
parte del programa: 

1720 OPEN 1,4,0,"D:GAME” 

1725 INPUT f(l, JUGADOR 

1730 FOR 1=1 TO AO 

1731 INPUT^l,SI TUACION:OB(I)=SITUACION 

1732 NEXT I 

1735 FOR LUGAR=1 TO AR 

1736 FOR DIRECCI0N=1 TO 6 

1737 INPUT fll, META-.PASADA (LUGAR, DI RECCI 
0N)=META 

1738 NEXT DIRECCION 

1739 NEXT LUGAR 

1745 FOR 1=1 TO AF 

1746 INPUT 1^1,FLAG:FL(I)=FLAG 

1747 NEXT I 
1750 GLOSE #1 
1770 GOTO 1080 
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Naturalmente, si utiliza cassette, debe volver a transformar 
"D:" en "C:”. 

Para hacer nuestro programa más lujoso, le añadiremos 
algunas líneas más. Así que no es en absoluto necesario 
limitarnos a un único fichero para grabar. Un segundo 
fichero sera imprescindible, cuando otros miembros de 
nuestra familia muestren su interés por las aventuras y 
deseen probar su habilidad en el mismo juego. 

Demos a los jugadores la libertad de elegir, y permitamos 
que ellos mismos escojan un nombre de 8 letras como máximo. 
El juego de aventuras deberé entonces señalar este fichero 
como fichero de juegos con el complemento DAT (FIChero). 

Resulta útil evitar la interrupción de la ejecución del 
programa en el caso que aparezca un error, cosa que puede 
suceder fácilmente si se ha Introducido un diskette 
incorrecto, o ninguno, en la unidad de disco. 

Los subprogramas completados de esta manera serán 
parecidos al siguiente listado. 
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1599 REM t$**$$**t*$$*****t* SAVE hAME 

1600 IF ENTRADA* ( i,3) <>‘'3AV'’ THEN ÜÜTij 
1 700 

1605 PK.ÍNr •'CON QUE NUNURE ••;:1NPUT l*M 
IRADA»; IF LEN fENTFfADA») >8 THEN PRINT ** 
ÜN PUFO MAG COPIO! *•; ROI O í 605 
1610 r»=‘'D: ••; ENTRADA» (l.Ei'J (ENTRADa»)+ l) 
-".DAT" 

Icr-lS r^<l EN a») +1 )--ÉNlRADA» 

1620 OPEN #1,8,0,T» 

1625 PRINT #l,,UJF.ADl)R 
1630 POR í-1 iu AO 
16.1 PRINI «J,Ci£Ul) 

1632 NEXI t 

1635 POR l.UEiAR^l TO AR 

1636 FÜR'DIRECi3irjN=J. rO 6 

1637 PRTni #l,PASADAaHbAR,i.>lRE(:CIÜN) 

1638 NEXT DIRECCION 

1639 NEXí IJ.IfcAR 
1645 FOR 1=1 Tü AF 
164/» PRINT 41.F! (í) 

1647 NEXT I 

165() CIOSE ttl 

1670 PRINT ••O.K. ";GiJTO 1080 

1699 RFM t**tttt*^tit*%***$*. LOAD GAME 

1700 IF ENTRADA» (1,3); := "LOA" f HEN GOTO 
1800 

r^05 PRINT ••QUE JUEGO '‘siIUPUT ENTRADA 
*: IF i.EN (ENTRADA») .-3 THEN PRINT "ESTE 
NO Pl lEDE EXISTIR'": L-OT O 1 705 
I’IO T»="D: ENTRADA»(LEU(ENTRADA»)+l) 
=".DAT" 

1715 T »(I EN(r») + 1)=EÑIPADA» 

1720 ÜPEN 41,4,C,r» 

1725 INPUT 41,JUGADOR 

1730 FÜR r=l TO Aü 

1731 INPUT #1 , SlTUACJUNrOBd )=-5TTIiAi:iO 
N 

1732 NEXT 1 

1 '35 FOR LUGAR=1 TO AP 
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EL LEXICO 


A menudo, la elección adecuada del léxico para un juego 
de aventuras se convierte en una tortura, ya que el jugador 
esta obligado a utilizar las mismas expresiones que el 
programador, y no siempre es fácil. 

Normalmente, las importaciones que fueron desarrolladas 
para el mercado americano más avanzado, no permiten ser 
resueltas con el Inglés aprendido en la escuela, o al menos 
resulta muy difícil. Por esta razón, muchos jugadores suelen 
tener cerca del ordenador su diccionario castellano - 
inglés, pero también este sistema puede fracasar cuando el 
autor ha empleado el lenguaje vulgar o algún argot. 

Sí observamos algunos fracasos de estos juegos debidos al 
lenguaje originadnos alegraremos con juegos editados en 
castelI ano. 

Pero Inmediatamente nos damos cuenta de las limitaciones 
de nuestro propio Idioma. La primera de las dificultades se 
presenta al Intentar adaptar los originales Ingleses 
utilizando la misma construcción de la frase, es decir 
usando tan sólo dos palabras para cualquiera de las 
situaciones que puedan presentarse. Puede que el castellano 
hablado por los turistas sea aceptable para tal fin; incluso 
las más rebuscadas construcciones sintácticas pueden ser 
graciosas en un principio. Pero, ¿ cómo pueden ocurrírsele a 
una persona de disposición y talento normales este tipo de 
entradas sin que nadie le ayude? 

Aunque una frase como "Coge cuchillo” no nos parezca del 
todo mal, debemos tener en cuenta que el cuchillo también 
puede realizar otras tareas. Sin embargo y a pesar de ello, 
sigue pareeléndonos un objeto agradable ya que frases como 
"Lanza cuchillo”, o "Afila cuchillo” no exigen demasiada 
fantasía para entenderlas con claridad. 
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Cuando el cuchillo haya cumplido su misión, habrá que 
desprenderse de el tarde o temprano, hecho que en algunos 
juegos se da con la pérdida voluntrla del mismo. ‘‘Pon 
cuchillo** causa mejor impresión que *‘Pierde cuchillo**, 
pero automáticamente nos preguntamos donde. Aunque esta 
entrada no corresponda precisamente a las habituales reglas 
del juego, deberíamos tenerla en cuenta por lo menos en 
nuestro sistema. 

Para finalizar, volvamos a observar un ejemplo de la 
primera página de este libro. ¿ Cómo podemos trepar a la 
cima del árbol? ¿ Quizás con “Trepa árbol**? 

Desgraciadamente no, pero ¿ dónde nos lleva un ‘‘Sube 
árbol** que suena mejor? 

Sólo nos informa de que el verbo "Subir" no ha sido 
entendido. ¿ Qué hacer? Rendirse o continuar cavilando? 

No podrá evitarse tener que probar con verbos como trepar, 
subir y escalar y, si la acción es realmente necesaria, 
tarde o temprano conseguiremos el éxito. 


Naturalmente, los problemas de esta tipo no resultan muy 
agradables y, puesto que este capítulo trata del 
perfeccionamiento de nuestro sistema de aventuras, 
buscaremos soluciones más adecuadas. 


SINONIMOS 

La primera propuesta para solucionar el problema del 
lenguaje sería Introducir sinónimos en cantidad suficiente. 
Sin embargo, como muestra el ejemplo del árbol, el 
equipamiento consecuente con sinónimos puede aumentar 
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considerablemente la extensión del programa, comporta una 
gran cantidad de trabajo adicional y una limitación de la 
memoria disponible, cada vez más escasa. 

Aun así. Introduciremos aquí un tipo de solución que 
aplicaremos como de costumbre a nuestro pequeño ejemplo de \i 
fiebre del oro, que ya casi convence por su brevedad y 
sencillez. Naturalmente no se trata de líneas que sean 
exigidas necesariamente por el programa. Sólo depende de 
usted, si prefiere un vasto léxico o sí se conforma con la 
propuesta que le presentamos seguidamente para mejorar la 
facilidad de manejo del programa. 

La primera ocasión de no encontrar Inmediatamente la 
palabra correcta, se le presenta al Jugador de fiebre del 
oro en el lugar 3 al intentar Inspeccionar más de cerca la 
cabaña de madera. 

De momento fracasará con "Inspecciona choza", y triunfará 
con * * Inspecclona cabaña**. 

Para que se pueda entender la segunda palabra, deberemos 
ampliar antes que nada nuestro vocabulario: 

110 AR=6:A0=19 

180 0BJET0S$="ARB0.CHOZ" 


Podemos ahorrarnos la descripción detallada. Asimismo, el 
cero se hace obligatorio como cc signa, ya que no deberá 
aparecer otra cabaña ni en el inventarlo ni en un lugar. 

Sólo se necesita el nombre para que el motor de la 
aventura pueda averiguar el correspondiente número de 
objeto, lo que sucede en la línea 2160. 

NormaImetate, la ejecución del programa continua en la 
línea 2200 con un salto hacia la correspondiente ejecución 
de Instrucción. Por supuesto no hay una sola condición que 
se cur-ila, pues en ningún lugar se pide un valor de 19 para 
N. Paro tener que completar estas 
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líneas, insertaremos el siguiente artificio: 


2160 IF E0$=RN$(N) THEN 2185 

2184 REM ***«-*-***«*********** SINONIMOS 

2185 IF N=19 THEN N=4 

con lo que se realizarán las mismas acciones con la choza 
de madera que con la cabaña de madera. 

Para conseguir que nuestro programa también pueda entender 
mayor cantidad de verbos, el trabajo será menor quea antes. 

Una palabra que Inicia la misma acción estará también 
disponible en el léxico de la aventura, y simplemente habrá 
que completar la tabla de saltos con el destino de salto que 
ya había sido utilizado una vez. 

De esta manera ampliamos fiebre del oro con la función 
"Observa" Idéntica a "Inspecciona": 

170 VERBOS $=**INSP.OBSE” 

2200 ON VN GOTO 5000,6000,7000,8000,900 

0,10000,5000 

Como puede ver, nuestro sistema es especialmente fácil de 
ampliar con verbos sinónimos, por lo que no deberíamos 
prescindir de este bono. 

En cambio, podemos tratar con negligencia los sinónimos de 
objetos, ya que tampoco les corresponde el mismo 
significado. Casi siempre, con excepción de las aventuras 
gráficas, las líneas de encabezamiento indican puntos de 
referencia. 

Todavía podemos facilitar mas las cosas al jugador, de 
manera que únicamente tenga que concentrarse en solucionar 
los problemas sin perder el hilo buscando las palabras 
correctas. 
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¿Qué le parecerfa a usted, sí un juego de aventuras mostrase 
su vocabulario completo a petición del jugador? ¿ Y si 
confeccionase una lista de todos los verbos posibles? 


VOCABULARIO 

Un listado del vocabulario completo debería acabar con 
todos los problemas en la elección de palabras, y el jugador 
no perdería ni tiempo ni Interes efectuando entradas 
Inótlles. 

Desgraciadamente, también aquí encontramos ventajas e 
Inconvenientes* 

Imaginemos un jugador que aún no conoce fiebre del oro* 
Aunque no haya jugado demasiado, podrá desarrollar en poco 
tiempo una estrategia de juego que lo lleve rápidamente al 
final, siempre y cuando sea medianamente capaz de pensar 
consecuente y de forma lógica. Desde el comienzo del juego 
conoce el completo vocabulario de la aventura y sabe, que en 
algún lugar podrá encontrar una botella, que en otro habrá 
una arca* Naturalmente también desarrollara una atracción 
hacia la plata y las pepitas de oro. Seguidamente pensará en 
los objetos que se pueden destruir, y su elección recaerá en 
la botella, la cabaña y la cadena* 

Se esforzará en encontrar el arca del tesoro y, después de 
darse cuenta de que una cadena de hierro le Impide ver el 
contenido. Intentará destruirla, lo que difícilmente podrá 
conseguir sólo con ayuda de las manos. Otro VOK le dará la 
idea de que la barra de hierro es probablemente el único 
objeto capaz de cumplir realizar esta tarea. 

Pero también los peligros serán de menor envergadura, si 
ya conoce, que comparte su mundo con un oso. 

Así pues, también depende del programador valorar el hecho 
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de dar a conocer el vocabulario completo de su aventura o 
sólo una pequeña parte del mismo. 

Esto podría realizarse con ayuda de una segunda Imagen 
titular, que emitiera cierta cantidad de palabras 
Importantes. Sin embargo, con ello actuaríamos en contra de 
nuestro objetivo de desarrollar un universal sistema de 
aventuras, ya que esta tabla tendrá que confeccionarse de 
nuevo para cada programa. 

Sin embargo, en los grandes juegos de aventuras, con su 
correspondiente léxico, es perfectamente razonable efectuar 
un listado del vocabulario, por lo que tampoco queremos 
prescindir de ello al desarrollar nuestro sistema de 
aventuras. 


Por las razones anteriormente mencionadas, el motor de la 
aventura se encarga del tratamiento de la Instrucción VOC. 
Para permitir una aplicación realmente universal de esta 
parte del programa, hay que averiguar las palabras 
destinadas a ser emitidas de los datos de juego de cada 
aventura. 

Pero de momento, nuestro sistema sólo ofrece las 
abreviaciones necesarias para poder Identificar cada 
término, razón por la cual cambiaremos antes que nada los 
strlngs afectados* Para que pueda seguir funcionando la 
rutina que determina cada palabra aislada de estas variables 
de cadena VERBOS$ y OBJETOS$, la longitud de cada término 
debe ser la misma. Por ello, la longitud de palabra se 
regirá ahora por el número de letras de la palabra más 
larga: 

1 70 VERBOS $=*' INSPECC1ONACOGE PON 

ABRE UTILIZA DESTRUYE 

OBSERVA ” 
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También se debe cambiar la longitud de paso de los bucles, 
que en lugar de cuatro será once. Pero si queremos evitar 
los cambios cada vez que realizamos un juego, introduciremos 
la nueva variable WL para significar la longitud de palabra: 

130 WL=11 

2090 FOR 1=1 TO LEN(VERBOS$) STEP WL 

2140 FOR 1=1 TO LEN(0BJET0S$) STEP WL 

A continuación de las rutinas INV, SAVE y LOAD añadiremos 
el correspondiente subprograma teniendo en cuenta la 
frecuencia de llamada de las líneas correspondientes: 

1800 IF ENTRADAS(1,3)o"VX*' THEN GOTO 

1900 

1805 GOSUB 1880 


En principio, en la línea 1805 se llama a un subprograma 
que borra la pantalla y emite una imagen titular. La 
utilización de una rutina propia se justifica por la 
repetida necesidad de esta función en juegos de aventuras 
mis extensos, cuando hay que presentar varias páginas una 
tras otra. 

1880 GRAPHICS 0:SETC0L0R 2,1,0:SETCOL0R 
4,1,0:PRINT "ENTIENDO LOS VERBOS SIGU 
IENTES:":PRINT :RETURN 


Después de determinar y emitir las palabras en cuestión, 
la línea 1890 espera que se pulse la tecla RETURN para 
reanudar seguidamente la ejecución del programa: 


1815 FOR 1=1 TO LEN(VERB0S$) STEP 11 
1820 PRINT VERBOSSd, 1+10) 

1830 NEXT I 
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1870 GOSUB 1890:GRAPHICS 0:SETC0L0R 2,1 
,0:SETCOLOR 4,1,0:GOTO 1080 
1890 PRINT :PRINT :PRINT "PULSAR <RETUR 
N> ... ";:INPUT ENTRADAS:RETURN 


Las líneas precedentes trabajarán ahora de la forma 
prevista, al menos mientras no haya que emitir más de 
dieciocho palabras. Al superar esta cantidad, el tiempo que 
emplea la emisión de los primeros vocablos en la pantalla 
será difícilmente suficiente como para considerarlo una 
ayuda al jugador. 

Para solucionar este problema, utilizamos una variable de 
control, cuyo contenido se fija en cero al comienzo de la 
emisión, y qiie aumenta su valor en uno con la emisión de 
cada palabra. Si después de dieciocho palabras se ha escrito 
la correspondiente cantidad de líneas, entonces borramos la 
pantalla y volvemos a fijar el contador a uno. 

1810 IMPRIMID0=0 

1820 PRINT VERBOSSd,I+10):1MPRIMID0 =1 

MPRIMIDO+1 

11825 IF IMPRIMID0=18 THEN GOSUB 1890:1 

MPRIMID0=1:G0SUB 1880$ 


De la misma manera, el jugador también puede ser informado 
sobre los nombres de los objetos entendidos por el juego: 

180 0BJET0S$=”ARB0LES ARBOLES ROC 

A ... 

1835 GOSUB 1890 
1840 GOSUB 1885 
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1845 IMPRIMID0=0 

1850 POR 1=1 TO LENCOSJETOSS) STEP 11 
1855 PRINT OBJETOS$(I,l+10):IMPRIMIDO=l 
MRPIMlDO+1 

1860 IF IMPRIM100=18 THEN GOSUB 1890:IM 
PRIMlD0=l’:G0SUB 1885 
1865 NEXT I 

1885 GRAPHICS 0:SETCOLOR 2,1,0:SETCOLOR 
4,1,0:PRINT "CONOZCO LOS OBJETOS SIGU 
I ENTES":RETURN 


HELP 

El desarrollo de una rutina HELP debe ser en este momento 
el último paso para aumentar la facilidad de manejo de 
nuestro Juego de aventuras. 

Cuando el Jugador piense que se ha extraviado 
completamente, Intenfará conseguir Informaciones útiles 
tecleando simplemente HELP. 

SI se trata de un Juego sencillo, porque en el tí* anscurso 
del mismo se dan las Indicaciones suficientes, nos 
facilitaremos las cosas: 

1559 REM *********'íHt************ HELP 

1560 IF ENTRADA$(1,2)<>"HEL" THEN GOTO 

1600 

1570 PRINT "PUEDO REPETIR LAS REGLAS DE 

JUEG0.":PRINT "LO DESEA UD. ":INPUT EN 

TRADA$ 

1571 IF ENTRADAS(1,1)="S" THEN GOSUB 80 

0:G0T0 1080 

1975 GOTO 1080 

1979 REM ********************* fin HELP 


126 


Otra respuesta frecuente es **¡Yo lo Inspeccionaría todo! - 
Try examining things!**. 

Sin embargo, suelen darse algunos consejos, por lo menos 
en los Juegos de aventuras recientes, que a veces no sirven 
de nada, porque el Jugador no puede entenderlos. 

La causa es que se trata de Instrucciones de una sola 
palabra, por lo que la ayuda deseada no se refiere a un 
determinado objeto, circunstancia que no facilita 
precisamente la valoración de la situación en vistas a las 
dificultades que tiene el Jugador. 

Finalmente, el programa sólo dispone del paradero del 
Jugador como base de trabajo. De esta forma no e? nada 
extraño, que muchas aventuras muestren continuamente la mlsme 
Información al Jugador en los lugares problemáticos, y que 
óste no podrá entender, porque en este momento le preocupa 
otro problema. 

Como ejemplo típico 'ocurrimos a una escena del Juego 
extraída del lugar 4. El Jugador ha descubierto la arca del 
tesoro y ya lleva un buen rato Intentando sin éxito alguno 
eliminar la cadena de hierro. En esta situación se podrá 
Imaginar la siguiente Indicación: 


1570 IF JUGAD0R=4 THEN PRINT '*UN BRAZO 
ALARGADO AUMENTA LA FUERZA.":G0T0 1080 


¿Qué podría hacer un Jugador, que pide ayuda en el lugar 4, 
con una Información que le recuerda las leyes de la palanca, 
si ya ha fracasado en la búsqueda de la arca y, en 
consecuencia, todavía no puede haber descubierto la cadena? 

SI queremos ayudar al Jugador y acercarlo paso a paso a la 
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Solución en las situaciones especialmente difíciles, no 
podrá evitarse la formulación de extensos textos y 
condiciones, como ya^ se ha demostrado en el ejemplo 
precedente. Para esta misión, parece que tanto los flags 
como las consignas de los más variados objetos vuelvan a son 
los de mas utiIIdad. 

Por otra parte, probaremos ahora esta forma de asistencia 
exactamente dosificada con el ejemplo de la arca, lo que no 
debe significar en absoluto, que esta escena se considera 
especI a I mente comp11cada: 

606 M6$=**¿C0M0 PUEDO DESTRUIR LA CADENA 

? * * 

607 M7$='*ELLA IMPIDE LA ABERTURA DE LA 

ARCA.” 

1970 IF JUGAD0R=4 AND 0B(10)=0 THEN PRI 

NT ”CASI ME HUBIERA CAIDO EN UN HOYO.” 

:G0T0 1080 

1971 IF JUGAD0R=4 AND 0B(11)=JUGAD0R AN 

D NOT FL(2) THEN PRINT M6$;:PRINT M7$: 

GOTO 1080 

Recordemos, que al pasar por el lugar en cuestión, de 
momento sólo pueden verse árboles, y que todavía hay que 
descubrir el hoyo escondido entre los arbustos. 

Pero si el jugador recibe Información sobre una casi - 
caída en un hoyo, seguramente se Interesará más de cerca por 
este obstáculo. 

Cualquier otro intento con HELP no supondrá ninguna 
ventaja especial en este momento. Sólo cuando el arca forme 
parte de la decoración del lugar en forma de objeto visible, 
el jugador recibirá la Indicación de que el examen de su 
contenido exige la destrucción de la cadena así como la 
apertura de la tapa. 


I 
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Esperemos que sepa efectuar por sí sólo esta acción. SI no 
os así, quizás sea conveniente para este< jugador reflexionar 
si no prefiere leer una novela o probar su suerte con juegos 
Arcade - Actlon. 

Para finalizar una asistencia construida de esta forma, 
flÑadIremos una línea de seguridad, como ya la hemos conocido 
al programar las restantes acciones. Es una línea que se 
ejecutará siempre que no se haya producido una situación 
especialmente definida: 

1971: 

1972: 

1975 PRINT ”¡ PRIMERO MIRAR, DESPUES PENS 

AR Y AL FINAL ACTUAR !”:G0T0 1080 


MOTIVACION DEL JUGADOR 

Nuestra próxima propuesta para mejorar los juegos de 
aventuras ampliará nuestro motor de aventuras en una última 
Instrucción de una sola palabra. 

Es evidente que los programas de aventuras requieren algún 
tiempo para su solución. Pero si se juega día tras día sin 
apreciar ningún progreso, al final uno se pregunta si no 
sería mejor cargar un nuevo juego. 

Por esta razón, los juegos de aventuras que trabajan con 
una valoración en puntos y señalan al jugador la distancia 
que aún le separa de la meta definitiva, parecen mucho más 
atractivos. 

Sin embargo, hay que considerar, sobre qué base se 
pretende realizar la valoración. La versión habitual prevé 
en un 
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Mlsslon - Adventure una determinada puntuación para cada 
tesoro que se encuentre, así como para cada misión parcial 
solucionada. Aparte de la Indicación ”De 100 puntos has 
obtenido 40’*,se le señala además la parte proporcional al 
jugador, con lo cual el estado de la partida puede ser 
valorado más simple y exactamente. Puede nombrarse otra vez 
el ejemplo del "AdventureIand” de Scott Adams. Trece tesoros 
dan un número Impar de puntos, pero con más de 50 puntos en 
tanto por ciento, el Jugador sabe que ya ha superado más de 
la mitad del trayecto. 


Una solución alternativa, en cambio, premiará cada paso 
adelante y no rehusará tampoco restar una determinada 
cantidad de puntos por cada ayuda prestada. Asimismo, cada 
error que cause la muerte será castigado, de manera que en 
un caso extremo Incluso se puede alcanzar puntuación 
negativa. Pero precisamente este amplio margen es el que 
Incita a Intentar repetidamente encontrar la solución, para 
ser posible conseguir una mayor puntuación que el amigo, que 
también ha alcanzado la meta. 

Sí se pretende equipar de esta forma un Juego de 
aventuras, el trabajo del programador comienza con la 
elección de secuencias apropiadas. Al fin y al cabo, el 
simple hallazgo de un objeto no debe merecer un aumento de 
la puntuación. Sin embargo, el Jugador puede esperar con 
razón una recompensa, cuando vence en astucia a un monstruo 
o cuando encuentra un pasadizo secreto. 


Antes de Interesarnos detalladamente por la realización 
práctica de las correspondientes versiones, tendremos que 
conseguir previamente, que el motor de la aventura entienda 
la Instrucción ”SC0RE”: 
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1500 IF ENTRADA$(I,3)<>"INY” THEN GOTO 
1560 

1559 REM ************************ SCORE 

1560 IF ENTRADASd,3)<>”SC0” THEN GOTO 
1600 

A continuación Introducimos la variable VALORACION para 
momorizar la puntuación conseguida. Para ello hay que 
procurar, que vuelva a ser fijada en cero con cada nuevo 
Inicio del Juego, al Igual que con la muerte del personaje 
principal. 


Sólo que la puntuación alcanzada no significa nada, si no 
•sta expresada en relación a la puntuación máxima que se 
puede conseguir, por ello: 

140 WMAX=20 :REM PUNTUACION MAXIMA DE 
LA MINIVERSION 

143 VAL0RACI0N=0 :REM 0 PUNTOS 

1561 PRINT”DE ”;WMAX;"PUNTOS HAS OBTENI 

DO ";VALORACION;"PUNTOS." 

1565 GOTO 1080 


El Jugador consigue los puntos al recoger las monedas de 
oro y de plata. Completemos pues las correspondientes líneas 
•n la parte de nuestra acción: 

6014 IF N=12 THEN PRINT "O.K.":OB(12)=- 

1:VA=VA+10: GOTO 1080 

6017 IF N=17 AND FL(3) THEN PRINT "O.K. 

":0B(17)=-1;VA=VA+10:G0T0 1080 

Desgraciadamente, un Jugador que sólo pretenda alcanzar 
una elevada puntuación, puede conseguir valores Ilimitados 
con la actual realización del programa. 
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Recordemos, que para la formación de la acción **Coge** 
acordamos que al decir coger se refería a óoger con la mano^ 
Esto permitía en la práctica del Juego, además de recoger 
objetos para guardarlos en el Inventarlo, coger también 
objetos del Inventarlo para realizar una ección como por 
ejemplo, abrir una puerta con ayuda de una llave. 

Precisamente esta Interpretación nos estorba ahora. Nada 
Impide al jugador a teclear repetidas veces ”Coge plata” 
para Ir sumando cada vez diez puntos a su cuenta con ayuda 
de esta entrada. 

Una posible solución supone modificar las condiciones 
preliminares generales (línea 6000), y otra significaría 
Introducir condiciones adicionales a misma la acción. 

Ya conocemos este principio por la realización de la 
acción * * Inspecciona•*. En aquella ocasión, un arreglo 
parecido había que evitar, que determinado objeto volviese a 
ser visible Infinidad de veces en su paradero Inicial. 


6014 IF N=12 AND 0B(N)=4 THEN PRINT ”0. 
K.":0B(12)=-1:VA=VA+10:G0T0 1080 
6017 IF N=17 AND 0B(N)=5 AND FL(3) THEN 
PRINT ”0.K.”;0B(17)=-1:VA=VA+10:G0T0 1 
080 

6019 IF N=12 AND 0B(N)=-1 THEN PRINT ” 
“YA TENGO LA PLATA!”:G0T0 1080 

6020 IF N=17 AND 0B(N)=-1 THEN PRINT ” 
“YA TENGO EL 0R0!”:G0T0 1080 


SI usted se decide en cambio, por considerar la acción 
'Coger* siempre como una acción para apropiarse de algún 
objeto, puede limitarse a reforzar las condiciones de 
entrada y a la emisión de Indicaciones apropiadas: 
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6000 IF NoJU THEN GOTO 6900 

6998 PRINT "“PERO SI ESTO YA LO TENGO ! 

”:G0T0 1080 


Para nuestros propios juegos de aventuras, o al menos para 
los de este libro, procedermos a puntuar solamente los 
tesoros que pasan a ser propiedad del jugador. Pero no 
renunciaremos a puntuar cada jugada positiva. 

Al contrario, aún daremos otro paso y puntuaremos a cada 
jugador por separado y, asimismo, le Informaremos sobre la 
puntuación media alcanzada. 


Como base de esta valoración se ofrece el número de las 
jugadas necesarias. Un aventurero experimentado no se 
conforma con Inspeccionar cada menudencia, sino que además 
sabe sacar provecho de las Indicaciones habituales. 

De esta suma y de la puntuación alcanzada, determinaremos 
el valor medio, y a partir de este cociente procederemos a 
emitir el juicio definitivo del jugador. 

146 JUGADA=0:VAL0RACI0N=0 

1080 GRAPHICS 0:JUGADA=JUGADA+1 

1561 PRINT "DE ";WMAX;" PUNTOS HAS OBTE 
NIDO VALORACION;" PUNTOSPRINT"EN " 

;M0VlMIENT0;" MOVIMIENTOS." 

1562 PRINT"ESTO CORRESPONDE A UNA MEDIA 
DE ";VAL0RAC10N/M0VIM1ENT0;" PUNTOS." 

1565 GOTO 1080 
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También definimos de nuevo el criterio para un final de 
Juego feliz. En lugar de una condición exactamente definida, 
que depende de cada juego, comparemos ahora la puntuación 
alcanzada con el máximo valor posible. SI la diferencia es 
Igual a cero, el jugador ha resuelto la misión. 

Por razones prácticas, este test se efectúa al comienzo de 
cada jugada, antes de que se pueda transmitir cualquier tipo 
de datos al jugador. 

1085 IF VAL0RACI0N=WMAX THEN GOTO 4800 

SI además emplea la puntuación como criterio, no olvide 
por favor, eliminar del programa todas las restantes líneas 
que se ocupen de la misma tarea (números de línea entre 1331 
a 1389). 

Con la consecuente Introducción de un sistema do 
puntuación, aun nos queda la tarea de adaptar el título 
triunfal a esta estructura. Los datos hallados deberían 
resumirse otra vez para que también se pueda calificar al 
jugador. 

Sin embargo, para ello no se podrá evitar que usted 
efectúe una partida completa de toda la aventura, cuando 
haya terminado su confección y ésta ya no presente ningún 
fallo. En esta partida debe usted evitar todas las entradas 
que no sean absolutamente necesarias, y averiguar la 
cantidad mínima de jugadas empleada para llegar a la meta 
del juego. Determine le relación entre puntos y entradas 
necesarias, y utilice éste o un valor algo Inferior como 
base para Identificar una partida brillante. 

Elija otros valores graduados correspondientemente para 
determinar las calificaciones mas bajas. 

De esta forma, la calificación de una partida de la 
mi ni versión de fiebre del oro podría efectuarse como sigue: 
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4800 GRAPHICS 0 

4805 FVALORACI0N=VAL0RACION/JUGADA 
4810 PRINT” ENHORABUENA !” 

4820 PRINT :PRINT iPRlNT "HA RESUELTO E 
L PROBLEMA PLANTEADO.”:PRINT 
4830 PRINT "EN ";M0VIMIENTO;” MOVIMIENT 
OS HAS OBTENIDO ";FVAL0RACION;" PUNTOS 
":PRINT"P0R CADA MOVIMIENTO.”:PRINT 
4840 PRINT "CON ELLO HA OBTENIDO UNA CA 
LIFICACION "; 

4850 IF FVALORACI0N<0.5 THEN M0$=”MISER 
ABLE." 

4860 IF FVALORACION>0.5 THEN M0$="REGUL 
AR.” 

4870 IF FVALORACION>1.5 THEN M0$="MUY B 
UENA." 

4880 IF FVALORACION>1.0 THEN M0$="BUENA 

II 

• 

4890 PRINT M0$ 

4899 PRINT :PRINT :END 


Un mensaje configurado de esta forma, que además se puede 
adornar utilizando los caracteres gráficos. Incitara a más 
de un aventurero que haya superado la aventura, a volver a 
probar su suerte con el juego. 


Y todo esto sólo para ser considerado un buen jugador. 


Con estas aclaraciones ya habríamos llegado al final del 
tema "Score", si no fuera porque aún habría que completarla 
con un detalle técnico, cuya falta podrTa desbaratar todo el 
planteamiento realizado hasta ahora, y disgustar seguramente 
a los jugadores de nuestros programas. 
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Quizás usted haya pensado ya en nuestra rutina Save Game, a 
la que también habrá que facilitar naturalmente una 
memorización y carga de los antes mencionados datos de 
valoración y movimiento, si no queremos que el jugador 
siempre vuelva a comenzar con cero puntos: 

1627 PRINT fíl,VALORACION 

1628 PRINT #1,MOVIMIENTO 

1727 INPUT «1,VALORACION 

1728 INPUT fíl,MOVIMIENTO 


Todas las propuestas hechas hasta ahora en este capítulo 
servían sólo para aumentar la comodidad de los programas. 

Creo que usted coincidiría conmigo si afirmo, que los 
juegos de aventuras que hayan sido confeccionados siguiendo 
el concepto de este libro y conteniendo todos los extras, 
pueden considerarse tranquilamente como juegos de clase 
superior. Finalicemos pues el desarrollo técnico con estas 
líneas, y pIanteemosnos la cuestión de cómo conseguir 
nosotros mismos que los juegos ganen en atractivo y 
dificultad. 

Para ello procederemos como de costumbre: a las 
explicaciones teóricas, seguirán las correspondientes 
líneas de programa, referidas otra vez a nuestra primera 
obra fiebre del oro. 

Las páginas siguientes le enseñarán especialmente, cómo 
puede dificultar aun más el juego al jugador, de manera que 
éste realmente tenga que recurrir a las ofrecidas 
instrucciones SAVE y LOAD para poder llegar algún día a la 
meta. 
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Para poder disponer del suficiente espacio para monstruos, 
trampas y demás, a continuación volvemos a la geografía para 
desarrollar nuestro mundo diminuto hasta convertirlo en la 
base de un juego de aventuras más elaborado. 

Pero si tiene la intención de disfrutar usted mismo de un 
juego de aventuras, antes de estudiar los apartados 
siguientes, debería entrar todas las restantes líneas de 
programa, o mejor todavía, hágalas entrar por otra persona. 

En el próximo capítulo podrá encontrar el correspondiente 
listado, que incluye todas las propuestas realizadas. 


ORIENTACION Y DESORIENTACION 

Ya se mencionó al principio del libro, que la mayoría de 
juegos de aventuras se desarrollan en un mundo que conste de 
unos cuarenta lugares. Sin embargo, aparenta ser un mundo 
mucho más grande, como hemos visto con el Inmenso bosque, un 
pantano, unas cuevas subterráneas, un laberinto y... 

Pero en realidad, estas zonas que parecen ser tan amplias, 
son grupos de unos pocos lugares comunicados de manera tan 
astuta, que el jugador normalmente no se da cuenta por qué 
camino ha llegado a ellos. 

Para ello se dispone de distintas posibilidades que van 
desde el simple lugar donde ocurre todo, hasta una sucesión 
de lugares, a cuyo término el jugador vuelve para empezar un 
nuevo recorrido. 

Aprovechemos en esta ocasión los lugares l y 2 de fiebre 
dol oro, para disponer ya al principio del juego de una 
vasta superficie. 
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Haga que el lugar 1 desemboque en si mismo en las 
direcciones norte y oeste, proceda Igualmente con lugar 2, e 
Intente Imaginarse después al jugador, que comienza en lugar 
1 y camina hacia el oeste. ¿Gomó puede éste saber, que 
después de cada entrada que haya efectuado aún se encuentra 
en el mismo lugar? 

SI no tiene la suerte de empezar la partida efectuando la 
entrada ”E”, necesitará realizar una buena cantidad de 
entradas para encontrar el camino que le saque del bosque, 
cosa que ya le Impide conseguir una buena puntuación. 

501 DATA 1,1,1,2,0,0 

502 DATA 2,2,5,1,0,0 

La búsqueda dentro del camino correcto resultará todavía 
más difícil, si la salida sur de lugar 2 no permite que el 
jugador vuelva a entrar en el lugar 2, sino en el lugar 1. 

501 DATA 1,1,1,2,0,0, 

502 DATA 2,1,1,3,0,0 

Al Iniciar el programa se sorprenderá del efecto que causa 
esta pequeña modificación. 

De esta forma ya se pueden construir pequeños laberintos 
con sólo tres lugares, al efectuar las comunicaciones sin 
orden ni concierto, sin ninguna relación con la brújula, 
existiendo una única entrada o salida. 

La técnica habitual que también nosotros hemos empleado 
para comunicar los lugares, se guía por los caminos reales, 
fijados por los puntos cardinales. Con ello se origina un 
mundo que permite Identificar sin problemas del lugar y 
facilita la orientación, sobre todo si el jugador 
confecciona un mapa apropiado. 
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Sin embargo, este Idea vuelve a ser Inútil cuando se puedan 
saltar varios lugares. 

Imaginemos tres lugares consecutivos, que todos empiecen 
con la descripción *‘Estoy en una cueva Inmensa**. 

Un jugador que entre en la cueva 1 por el oeste, al no ver 
nada especial, querrá en principio conocer los alrededores a 
grandes rasgos, y probablemente no cambiará la dirección una 
vez tomada, porque necesitará encontrar fácilmente el camino 
de vuelta. 

Después de atravesar los lugares 2 y 3, el jugador vuelve 
a aparecer en el primero, cosa que no será capaz de 
averiguar sin realizar las correspondientes acciones. 

La utilización de esta técnica de salto permite construir 
fácilmente laberintos que parecen ser Inmensos. Hay 
suficiente con seis lugares para hacer casi Imposible que el 
Jugador encuentre el camino correcto. 

Incluso el propio programador tendrá bastantes 
dificultades al realizar la fase de prueba. 

Esta forma de trabajo dificulta Incluso la confección de 
un mapa. Sin embargo, no ocurre lo mismo al utilizar el 
procedimiento alternativo que aquí presentamos. 

La forma de proceder según este método parece exigir, la 
confección del laberinto en papel preferiblemente 
cuadriculado, tal como también pueden encontrarse 
frecuentemente en los pasatiempos de diversas revistas. 

Al realizar la programación, cada cuadrícula corresponde a 
un lugar, lo que ya permite adivinar el considerable trabajo 
que esto representa. 

También es comprensible, que durante su excursión el 
Jugador coja una nueva cuadrícula con cada nuevo lugar, 
marque las paredes y deje los pasillos en blanco. 
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En su lugar, coja usted seis lugares de los cuales fijará a 
uno como lugar de entrada, a otro como lugar colectivo y a 
un tercero como lugar de salida* Es Importante tener en 
cuenta, que el lugar de entrada conduzca exclusivamente y en 
una única dirección de vuelta hacia el último lugar 
VI sitado. 

Lo mismo vale para el último lugar. Solamente un único 
pasillo permite el acceso al nuevo mundo, mientras que todos 
los demás caminos deben conducir de vuelta hacia el 
laberinto. 

El lugar colectivo tiene una función central. En cada 
lugar del laberinto hay dos o más caminos que conducen hacia 
este lugar central, mientras que todas sus salidas vuelven a 
llevar al jugador al primer o segundo lugar del laberinto. 

Para complicar aún más el asunto, se disponen las salidas 
del lugar, que se encuentra antes del último y en 
comunicación con éste, de al manera, que sólo exista una 
única salida que conduzca hacia el último lugar, mientras 
que todas las demás lleven hacia el lugar colectivo o al 
primero. 

No cabe mencionar, que se prevé una descripción Idéntica 
para todos los lugares y que se utilizan las seis 
direcciones si esto es posible. 

Después de todo esto, el jugador necesitará casi tanta 
suerte como en la lotería para poder salir del laberinto. Lo 
pasará mal antes de encontrar el camino correcto en el 
penúltimo lugar, lo mismo que en el último. Cada error lo 
devuelve además, hacia otro lugar que, por su parte, también 
ofrece seis posibilidades de movimiento. 


Intente aclararse en el siguiente laberinto. Aunque usted 
mismo haya acabado de entrar las correspondientes 
conexiones, tendrá sus dificultades en resolverlo: 
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El laberinto de fiebre del oro: 

lio AR=14: ... 

207 PRINT "EN LA BOCA DE ENTRADA DE UNA 
VIEJA MlNA.*»:RETURN 

219 PRINT “EN UN FILON SERPENTEADO.RE 
TURN 

224 PRINT »'EN UN FILON SERPENTEADO.RE 
TURN 

225 PRINT »*EN UN FILON SERPENTEADO.**:RE 
TURN 

226 PRINT ”EN UN FILON SERPENTEADO.”:RE 
TURN 

227 PRINT ”EN UN FILON SERPENTEADO.":RE 
TURN 

228 PRINT "EN UN FILON SERPENTEADO.":RE 
TURN 

229 PRINT "EN UN FILON SERPENTEADO.":RE 
TURN 


507 

DATA 

7,0,1,5,0,0 

519 

DATA 

8,0,0,5,0,0 

524 

DATA 

10,7,8,8,8,8 

525 

DATA 

11,8,8,13,11,8 

526 

DATA 

11,8,10,11,11,8 

527 

DATA 

9,8,10,11,10,8 

528 

DATA 

8,10,10,11,0,0 

529 

DATA 

0,11,12,11,0,0 
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CAMBIO DEL LUGAR 


Además' de laberintos de todos los tamaños, también 
disponemos de otros medios para dificultar la orientación 
del jugador. 

Gozan de mucha popularidad las súbitas transferencias del 
personaje principal hacia otro lugar, hecho que se comunica 
al jugador con el mensaje "Todo a mi alrededor da vueltas”. 

Pero este mensaje puede considerarse un gesto amable del 
programador, y no una obligación. 

Los causantes de este tipo de acciones suelen ser los 
objetos mágicos que se activan frotando fuertemente, al 
Igual que una lámpara de Aladlno. 

Pero también conjuros y brebajes mágicos producen sus 
efectos, por lo que se aconseja al jugador de un programa de 
aventuras, que se ande con el mayor cuidado si aparece la 
palabra *magla* en relación con cualquier cosa. 

Desde el punto de vista de la técnica de programación, 
estos suubltos cambios de lugar no comportan ningún tipo de 
dificultad en nuestro sistema de aventuras, ya que basta con 
asignar el número del nuevo lugar a la variable JUGADOR. 

La orden *'Frota lámpara" podría Implamentarse de la 
forma siguiente (lámpara = objeto 3): 

xxxx IF N=3 AND 0B(3)=-l THEN PRINT "EL 
MUNDO DA VUELTAS ...”:JUGA00R=9:G0T0 1 
080 

SI, además, la descripción del lugar 9 corresponde a la 
del anterior lugar, no podrá evitarse, que el jugador esto 
completamente confundido después de la próxima jugada. Esto 
ocurre especialmente en el caso, de suprimir el 
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Mensaje o se escojer otro texto: 

xxxx IF N=3 AND 0B(3)=-l THEN PRÍnT "0. 

K. - NO PASA NADA.":JUGAD0R=9: GOTO 10 

80 

Se puede superar el grado de dificultad, cuando el cambio 
de lugar del jugador ya no dependa ni de las manipulaciones 
de algún objeto, sino siendo controlado única y 
exclusivamente por la casualidad. 

La estructura de nuestro programa de aventuras nos permite 
prescribir, que el hecho de atravesar un lugar determinado 
sea una acción Inevitable. 

SI el contenido de JUGADOR coincide con el número de este 
lugar, se toma una determinación casual que decide, si el 
jugador es trasladado o si se le permite una estancia en el 
lugar actual para poder realizar otras acciones. 

¿Qué jugador se arriesgaría a repetir el proceso, cuando 
haya sido devuelto repetidas veces al laberinto después de 
atravesarlo felizmente y entrar a continuación en un lugar 
aparentemente Inofensivo? 

Un fragmento de la aventura fiebre del oro vuelve a 
mostrar la forma en que se Inserta este obstáculo: 

lio AR=16: ... 

221 PRINT "EN UNA GALERI A.:RETURN 

222 PRINT "EN UNA.. 

519 DATA 8,0,15,5,0,0 

521 DATA 11,11,11,7,11,0 

522 DATA 0,15,0,0,0,0 

1345 IF JUGAD0R=15 THEN IF RND(1)>.7 TH 
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EN JUGAD0R=16 


El traslado del jugador hacia el lugar crítico se realiza 
al abandonar el lugar anterior al laberinto - actualmente el 
lugar 8, un filón serpenteado - en dirección oeste. 

El jugador puede retirarse Inmediatamente de este lugar, 
pero también puede Intentar averiguar lo que le tiene 
preparado el contorno. 

SI la casualidad quiere - y el hecho de que quiera se 
determina con el valor comparativo en la función RND se 
detiene en el siguiente lugar. En caso contrario, se 
encontrará otra vez en un lugar del laberinto (lugar 
colectivo 11), que no le ofrece ninguna referencia para 
orientarse. 

SI no le acompañó la suerte, después de unos cuantos 
Intentos el jugador decidirá, que se trata de otro acceso 
mas al laberinto y evitará este lugar a partir de ahora, con 
lo cual no podrá encontrar nunca una parte del tesoro. 


ACCESOS XULTOS 

Los accesos ocultos le pueden causar las mismas 
dificultades al jugador. Incluso aunque en la línea **Puedo 
Ir hacia ...*• sólo se Indiquen las direcciones este y 
oeste, esto no significa que el mundo acabe en el norte: 


VEO UNA CUEVA SOMBRIA, UN OSO DE MIRADA 
FEROZ, ^PEPITAS DE ORO*. 

PUEDO IR HACIA OESTE, ESTE. 
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O.K 


¿QUE DEBO HACER ?N 

¡HACIA ALLI NO CONDUCE NINGUN CAMINO! 
¿QUE DEBO HACER ?E 


Muchos jugadores - cuando se trata de aficionados. Incluso 
la mayoría - se fiarán de las Indicaciones realizadas y no 
entrarán nunca en la cueva. Esto se debe al hecho de 
permitir, que se efectúe una Inspección - así como otras 
acciones - desee la posición actual, disipando de esta forma 
la sospecha de que allí se pueda esconder un Inmenso mundo 
subterráneo. 

Sólo una entrada como "Entra cueva" nos lleva a hacer 
nuevos descubrimientos: 

170 VERB0S$=” INSPECCIONA.ENTRA " 

2200 ON VN GOTO 5000,6000,7000,8000,900 
0,10000,13000 

13010 IF N=13 AND JUGAD0R=5 THEN JUGADO 
R=12: PRINT "0.K.”:G0T0 1080 

ATENCION: Antes de comprobar la función 
de esta líneas, es imprescindible 
entrar también todos los demás lugares, 
así como modificar las conexiones 
presentes hasta ahora (líneas 200 - 300 
, 500 - 600). 

Asimismo hay que adaptar la línea ||10 a 
la nueva situación. 
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Lo mejor de esta realización es que ni siquiera se camufla 
el acceso - en contraposición a otra clase de realización 
razón por la cual también goza de gran popularidad entre los 
productores de aventuras. 

Ahora la misión del Jugador ya no se limita sólo en 
descubrir un lugar oculto y conseguir entrar en él con ayuda 
de palabras correctas, sino que deberá ser capaz de 
desarrollar un plan sobre la forma de construir un camino 
transitable hacia este lugar. 

En el caso más simple, se trata de una puerta cerrada. Una 
apropiada Indicación realizada por el motor se garantiza 
tanto a través de las descripciones de objetos, así como de 
los datos de la línea responsable de este lugar y que 
pertenece a la tabla de direcciones: 

180 OBJETOS$="...PUERTA" 

3xx T$=*'UNA PUERTA" :RETURN 

410 DATA.,.,...,0 

REM LUGAR 1 

2xx PRlNT "EN UNA CELDA.":RETURN 

5xx DATA 0,0,0,0,0,0 

Este habitual procedimiento prevé que el Jugador descubra 
la puerta provista de un candado macizo, al Inspeccionar la 
celda. 

Las órdenes "Abre puerta" o "Abre candado", señalan la 
ausencia de llave, provocando de esta forma, que el Jugador 
compruebe todos los restantes objetos que forman parte del 
lugar por su utilidad para poder abrir el candado. 

En la mayoría de aventuras, basta con que la llave este 
presente en el Inventarlo, mientras que los demás exigen 
además, una utilización apropiada de la llave. 
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característica que ahora podemos entender gracias a nuestra 
experiencia práctica. 

Mientras que los primeros se conforman con una simple 
comprobación (0e(N)=-l), los demás programas - más 
elaborados - trabajan adicional mente con flags. 

Sea como sea, una vez abierta la puerta, aparecerá una 
determinada Indicación de dirección en una línea de 
encabezamiento, que nos permitirá deducir la manipulación de 
la línea responsable de este lugar del campo PASADA (,). 

xxxx IF N=y AND 0B(z)=“l AND JUGAD0R=r 
THEN PRlNT "O.K.": PASADACr,rl)=nr: GO 
TO 1080 

y = número de objeto puerta 
z = número de objeto llave 
r = Lugar actual 

rl= punto cardinal correspondiente 
nr= nuevo lugar a alcanzar 

La línea precedente. Insertada en la parte de programa 
prevista para el tratamiento del verbo "Abre", se asegura de 
que el Jugador esté en posesión de la llave (z) correcta, 
así como delante de la puerta (r) correcta. A continuación, 
se modifican adecuadamente las Indicaciones de la tabla de 
direcciones. 


LIMITACIONES Y CONTADOR 

Pienso que son elementos especialmente Interesantes para 
que un Juego de aventuras pueda destacar sobre la gran masa. 
Principalmente son ellos los que proporcionan la fascinación 
de la realidad a los programas de aventuras, y configurar 
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Algunas secciones de estos juegos en verdaderas 
rompecabezas. 

Por esta razón, su campo de acción no se encuentra tanto 
en una activa participación en el juego, como en un control 
de fondo de las condiciones del margen que rodean el juego. 


Una vez llegado a este punto hay que mencionar la 
limitación del Inventarlo, ya que un límite de carga forma 
parte ya de la completa elaboración de un juego de 
ordenador. 

Esto es comprensible. En primer lugar resulta Increíble, 
que una sola persona - partimos del hecho de que no se trata 
de una aventura de superman - pueda llevar consigo Infinidad 
de objetos, y en segundo lugar, el juego puede resultar 
demasiado fácil cuando siempre se puede disponer 
Inmediatamente de todos los objetos. 

Desde es punto de vista técnico, un contador comprueba el 
número de objetos que el jugador lleva consigo. SI se supera 
la fuerza de carga del personaje principal, prevista por el 
programador, se rechaza la recogida de mas objetos. 


Esto exige la definición del máximo número de piezas 
admitido antes de comenzar cualquier acción. 

110 ... IMAX=5 

Por lo demás dejamos la rutina de Inventarlo tal como 
está, ya que debemos dedicar mayor atención al p'^oceso de 
coger. 

Ahora se exigirá otra condición común a todas las acciones 
que utilicen el verbo "Coge**; por ello conviene modificar 
por segunda vez la línea 6000. 

Desgraciadamente, esta planificación no prevé sólo una 
modificación de la estructura del bloque afectado, sino que 
además echa a perder nuestro sueño de un motor unlversa I mente 
aplicable con todas sus funciones y restricciones. 
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Por este motivo modificamos la tabla de saltos en la línea 
2200 y efectuamos la prueba necesaria antes de la propia 
ejecución de las Instrucciones: 

2200 ON VN GOTO 5000,2210,7000,8000,900 

0,10000 

2209 REM ******** TEST POR SITIO EN INV 

2210 CANTIDAD=0 
2220 FOR 1=1 TO AO 

2230 IF 0B(I)=-1 THEN CANTIDAD=CANTIDAD 
+ 1 

2240 IF CANTIDAD=IMAX THEN PRINT **N0 GR 
ACIAS. - ¡ YA LLEVO BASTANTE CARGA !’»: 

GOTO 1080 
2250 NEXT I 

2260 GOTO 6000 : REM *** EJECUCION COGE 
2270 REM ****************** FIN INVTEST , 


Mientras que al contador le toca un papel pasivo, y la 
rutina sólo será llamada dentro de una acción muy definida, 
otros controles de fondo no sólo limitan al jugador en su 
libertad de movimiento, sino que Incluso pueden provocar ^el 
final de la partida. 

Esta afirmación es especialmente válida para las 
siguientes líneas de programa, cuya Inclusión en nuestro 
sistema representa el punto sobre la "l". 
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AVAILABLE LIGHT 


Esta es la expresión usual con que se designa una 
propiedad que puede encontrarse en algunos programas de 
aventuras, y que puede llevar al jugador a la desesperación 
mediante obstáculos adicionales. 

Parece que los Jugadores de aventuras apasionados no 
tienen suficiente con los obstáculos habituales y, como ya 
sabemos, no hay nada más difícil que la vida cotlana, sólo 
hay que imitar precisamente esta vida de forma mas perfecta, 
para remediar el aburrimiento de un Juego demasiado fácil. 

Sin "luz disponible” estamos a oscuras y difícilmente 
podremos ver alguna cosa, y .mucho menos actuar con 

precisión. SI a todo ello se añade el hecho de que no nos 
hallamos en nuestro dormitorio, donde este hecho no tendría 
tanta Importancia, sino en un paisaje rocoso de naturaleza 
salvaje y escabrosa, cada paso se convierte en un riesgo 
mortal. 

Esto es muy oportuno para nosotros, pues Incluyendo las 
siguientes líneas en nuestro Juego de aventuras. Imaginemos 
la reacción de nuestros amigos, a los que naturalmente 
presentaremos nuestra obra una vez terminada. 

Afortunadamente, cualquier programa de aventuras so presta 
a aceptar este obstáculo- A menudo disponemos de vastas 
cuevas o sistemas de pasadizos subterráneos, mientras que 
otros programas se desarrollan en el Interior de una casa. 
Todos ellos son lugares que requieren una Iluminación 
artificial. SI alguna vez se presentase la situación de que 
toda la acción ocurra al aire libre, habrá que Imitar el 
movimiento del sol. 

Para poder realizar una salida y puesta de sol, sólo hace 
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falta Introducir otro contador. 

Para empezar, fijamos la duración del día (de la noche), 
sirviéndonos para ello de las entradas que efectúe el 
Jugador como unidad de tiempo. 

Supongamos, que después de cada ÓO Jugadas tras la salida 
de sol empiece la noche. Este valor será Igualmente propio 
de cada Juego de aventuras como la cantidad de puntos 
alcanzadle, por lo cual se Inicial Iza la correspondiente 
variable LM ya al comienzo del programa: 

lio ... IMAX=5:LM=50:LLUZ*-l 

Sus ya considerables conocimientos sobre el tema aventuras 
le permite considerar la variable LLUZ como un flag, en el 
sentido que un -1 significa una cantidad de luz suficiente 
para realizar todas las acciones, mientras que 0 significa 
oscuridad. 


Las dos posiciones posibles de este Interruptor Indican a 
la rutina de salida de nuestro motor, si el Jugador es capaz 
de ver alguna cosa, o si debe andar a oscuras: 

1091 REM *****♦*«•♦**♦******♦*■♦* SIN LUZ 

1092 IF LLUZ THEN 1100 

1093 PRINT ”N0 SE EXACTAMENTE DONDE EST 

Oí.” 

1094 PRINT ” ES DEMASIADO OSCURO PARA V 

ER ALGO." 

1095 PRINT: PRINT"TAMPOCO PUEDO VER LAS 

BOCAS DE SALIDA.":G0T0 1320 

Después de la línea \]C.2 se procesarán las rutinas de 
salida no utilizadas hast ahora, en el caso de que exista 
luz- 

si ocurre lo contrario, las líneas 1093 a ||095 Informan en 
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la forma habitual de que no hay nada que ver. 

Al Imprimir la línea de separación (1320), se puede 
continuar la ejecución del programa a través de las líneas 
habituales. 

Ya sólo nos queda procurar la correcta posición 
caso, que debe realizarse después de efectuar el número de 
Jugadas fijado con LM. 

Para realizar esta operación de comparación no se puede 
consultar el contador de jugadas, porque al cambiar de día a 
noche también se exige, que el contador se ponga otra vez a 
cero. Por ello introducimos la variable cambio de luz (LW); 

110 ... IMAX=5:LM=50:LLUZ=-1:LW=0 

1080 ...M0V1MIENT0=M0VIMIENT0+1:LW=LW+1 
1084 IF LW=LM THEN GOSUB 3000 


2999 REM SUBPROGRAMA INTERRUPTOR LUZ 

3000 IF LLUZ=-1 THEN LLUZ=0:G0T0 3020 
3010 IF LLUZ=0 THEN LLUZ=-1 

3020 LW=2 
3030 RETURN 

Al principio de una nueva partida de entradas, se 
comprueba si se ha alcanzado la duración (LM) prevista de un 
período. Si el resultado de la prueba es afirmativo, se 
llama al subprograma interruptor y se modifica el estado de 
LLUZ. No hace falta nada más para exponer al aventurero a un 
cambio de día y de noche, cosa que puede significar que éste 
busque una lámpara. 

Sin embargo, no queremos limitarnos a simular el 
movimiento 
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del sol, sino que hacemos depender la acción de la posesión 
de una lámpara. 

Con ello encargamos al jugador la misión adicional de 
disponer siempre de suficiente combustible para su fuente 
Iuminosa. 

En nuestro caso se tratará de aceite, que puede hallar en 
la cueva del oso. En esta cueva llena de aceite las botellas 
que debe haberse llevado previamente y, a continuación, la 
I ampara* 

Cada llenado vuelve a poner el contador cambio de luz al 
valor máximo. 

Para complicar el asunto adíe i onal mente, la lámpara 
todavía contendrá un resto de aceite en el momento en que el 
jugador la encuentre. Si después entra en la mina sin 
rellenar la lámpara, estará perdido sin posibilidad de 
salvación. Otro paso más y el aventurero tropieza 
desnucándose. 

Ya que no hemos previsto oscuridad para el resto del 
territorio, el primer paso para realizar esta versión 
consiste en modificar los valores iniciales. 

Una conmutación siempre tiene lugar, cuando el contador 
cambio de luz coincide con el el contenido de LM (cantidad 
de luz). 

Sin embargo, para permitir que el jugador pueda realizar 
un número casi ilimitado de jugadas, fijamos LM en cero y LW 
en uno, y después aseguramos que LW no pueda ser nunca igual 
a LM: 

lio ... IMAX=5:LM=0:LLUZ=-1:LW=1;LW=1:L1 

=20 


Se añade L1 porque el contenido todavía existente debe ser 
menor que el posteriormente añadido. El resto de las líneas 
pueden tomarse del ejemplo anterior. 






























Esta rutina no se activa hasta que se efectúa el primer 
encendido de la lámpara. Además de emitir la I 

ejecución de esta Instrucción también Inicial Izará j 
correctamente los contadores: ( 

11030 IF N=23 AND OB(23)=-l THEN PRINT” i 

O.K. - LA LAMPARA ESTA ENCENDIDA.”:LM= ' | 

L1:LW=1:G0T0 1080 

El Jugador dispone ahora de luz suficiente para realizar J 
las veinte acciones siguientes y, rellenando la lámpara 
puede aumentar este valor hasta cincuenta: 1 

12010 IF N=23 AND 0B(23)=-1 AND FL(6) T | 

HEN L1=50:LM=50:LW=1 :PRINT "0.K.*':G0T0 j 

1080 I 

Para permitir el rellenado de combustible con llama sea | 
encendida o apagada, asignamos a la variable L1, así como a J 
la LM, la cantidad de Jugadas a efectuar ahora. I 

En el caso de que el Jugador se dirija hacia la superficie! 
o apague la lámpara por alguna otra razón, debemos salvar el I 
actual contenido de combustible. I 

Primeramente, hay que añadir la palabra "Apaga” a VERBOS!,j 
y prever eo la línea 2200 un destino de salto para el 1 
tratamiento de esta acción. I 

14000 IF N=23 AND 0B(N)=-1 THEN L1=LM-L I 

W:PRINT "0.K.":60T0 1080 I 


Naturalmente también hay que salvar estos valores al 
grabar un Juego: 

1625 PRINT «2, JUGADOR:PRINT I#2,L1:PRINT 
4í2,LM:PRINT #2,LW 

1725 INPUT ^2, JUGADOR: INPUT lf2,L1;INPU 

T .tt2,LM: INPUT lf2,LW i 
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Ahora ya nos hemos asegurado, que el asunto de la luz 
funcione realmente en la forma prevista. 

Sin embargo, para evitarle al jugador la súbita sorpresa 
del final Irremediable - porque si se encontrase en las 
profundidades de la tierra, cuando se le acabase el 
combustible, ya no podrá salvar su pellejo - debería 
emitirse un aviso para Jugar limpio. 

La siguiente línea le Informará, un poco antes de apagarse 
la lámpara, del peligro que corre: 

1350 IF LM-LW<15 THEN PRINT "LA LUZ DE 
LA LAMPARA SE EXTINGUE." 


Espero, que los ejemplos precedentes le sirvan de ayuda 
para poder realizar sus propias Ideas. 

Así, no le será difícil encargarse en sus programas, por 
ejemplo, de que el Jugador se alimente a tiempo, para poder 
continuar cogiendo objetos en sus manos y realizando 
acciones. 


Del mismo modo, con ayuda de otro contador, puede hacer 
que las reacciones dependan del tiempo transcurrido. 




























CASUALIDADES 


Terremotos que provocan desprendimiento de rocas, 
monstruos que aparecen súbitamente, los enemigos naturales 
del protagonista en el juego de aventuras, así como trampas 
que se abren en el momento más Inoportuno, son también otros 
métodos populares para apartarlo del camino correcto. 

Normalmente, la aparición de estos sucesos se controla por 
la casualidad, siendo Incluso en doble sentido. 

Un monstruo puede habitar un determinado lugar y 
arrancarle la cabeza al jugador: 

1360 IF JUGAD0R = I0 THEN M0$ = ’'ESTA VEZ N 

0 TENIA MIEL PARA EL OSO.”:GOTO 4500 


Pero Igualmente, la trampa puede actuar sólo en algunos 
casos, mientras que en otros momentos le puede perdonar la 
vida al aventurero: 

1370 IF JUGAD0R=20 AND RND(1)>.8 THEN M 

0$=”EL SUELO SE HUNDIO BAJO MIS PIES." 

GOTO 4500 

La tercera versión combina todos los elementos presentados 
hasta este momento. 

Asimismo se puede partir, de la movilidad de los enemigos 
del protagonista, razón por la cual el monstruo también 
debería disponer de una determinada sección del mundo de 
aventuras para poder actuar: 

1380 IF (JUGAD0R=13 OR JUGAD0R=14 OR JU 

GA00R=16) AND RND(1)>.8 THEN M0$="0TRA 

VEZ EL OSO.":GOTO 4500 
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DE LA AVENTURA EN TEXTO A LA GRAFICA 


Los programas de aventuras presentados recientemente 
suelen mostrar una excelente presentación óptica además de 
las características ya mencionadas. Existe una Imagen 
distinta para cada lugar, que Informa al Jugador con más o 
menos precisión, sobre cosas Importantes para el juego y 
sobre todo lo que los rodea. 

Para realizar estas aventuras gráficas desde el punto de 
vista de la técnica de programación, el programador dispone 
de tres posibilidades. 

En principio puede grabar en un diskette una gráfica para 
cada lugar y cada objeto y cargarlas en la memoria de 
pantalla del ordenador cuando sea necesario. En la 
actualidad, este método se utiliza en prácticamente todas 
las aventuras gráficas, por un lado, porque pueden 
conseguirse resultados magníficos mediante digitalIzador de 
video u otros medios auxiliares, como es el koalapad. Por 
otro lado, el trabajo adicional de programación consiste en 
un único subprograma que debe cargar un fichero en función 
del número de lugar (JUGADOR), y puede constar de una sola 
línea en el caso más favorable. 

Naturalmente se requiere el espacio correspondiente en el 
diskette (ahora entenderá por qué algunas aventuras ocupan 
tres o más dlskettes), y el jugador tendrá que soportar con 
paciencia el tiempo de carga. 

El segundo método trabaja con un Interpretador gráfico, 
una parte del programa de aventuras que dispone de una 
Instrucción Une y palnt, y al que hay que proporcionar cada 
vez los datos de todos los contornos y colores. 

Este método es el que utiliza menos memoria , ya que 
generalmente se necesita sólo un byte para cada punto y. 
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SI se ejecutan las líneas en grupos, basta sólo una posición 
de memoria para memorizar 1 as. 

Por lo demás, el programador gráfico que presentamos a 
continuación también trabaja según el mismo principio 
cuando, al pulsar CTRL Z, muestra una nueva imagen. 

Finalmente, el tercer procedimiento destaca por su 
rapidez, porque cada instrucción necesaria para construir la 
gráfica es ejecutada diréctamente. Por supuesto es 
necesario, que el sistema operativo del ordenador disponga 
de estas instrucciones y que la memoria de trabajo pueda 
admitir las órdenes necesarias. 


Al seguir desarrollando nuestra aventura, nos limitaremos 
a los dos últimos métodos, ya que para su aplicación no 
precisamos ni medios auxiliares técnicos ni laboriosos 
subprogramas. 

Ambas soluciones requieren naturalmente pequet^^ 
modificaciones en nuestro programa motriz, puesto que ahora 
las sal idas ♦deberán efectuarse en otra parte de la pantalla. 

Vuelva a cargar pues la miniversión de fiebre del oro y 
cambie GRAPHICS 0 (línea 1000) por GRAPHICS 8. 

Después de encender el modo operativo gráfico, ya sólo 
disponemos de cuatro líneas de texto en nuestra imagen del 
monitor. Esto significa de entrada, que debemos limitar 
nuestras emisiones; sólo se permite la cantidad realmente 
imprescindible. 

Podemos prescindir de la línea vacía y del guión, por lo 
que borramos primero las líneas 1310 y 1320. Tampoco nos 
hace falta ya la instrucción de posición en 1390, ya que lo 
más seguro es que. lleguemos de todos modos a la última 
Iínea. 

Si ahora ejecutamos el programa, las diez líneas vacías en 
1090 ya carecen de sentido, por lo que también podemos 
suprimlr1 as. 
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Puesto que a pesar de ello seguimos utilizando más de 
cuatro líneas de pantalla, prescindiremos también de la 
descripción del lugar. Si nos esforzamos mínimamente en 
confeccionar la gráfica, esta descripción sobrará. 

Borre pues la línea liOO, así como todas las descripciones 
de lugar dentro de las líneas 200 a 299 del programa. 

Nuestro próximo paso consiste en resumir los mennsajes 
sobre los caminos disponibles y sobre la invitación al 
jugador para indicar sus instrucciones. 

Para no tener que utilizar más de una línea de pantalla, 
modificaremos las líneas 1011 a 1016 de tal manera, que ya 
solo sea preciso escribir la letra inicial, la coma, y un 
espacio en T$. A continuación complete la línea 1310 con un 
punto y coma, para evitar el avance de línea, y borre 
también la 1260, ya que tampoco se llegará nunca al final de 
la línea, aunque se indiquen las seis direcciones. 

Después de iniciar el programa, debería recibir la 
siguiente imagen: 


VEO MUCHOS ARBOLES GRANDES. 
E.? 
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O.K. 

VEO MUCHOS ARBOLES GRANDES, 
ALGUNOS PEDRUSCOS. 

O, E.? 


Según esto, se muestran ahora en la línea superior las 
Informaciones, seguidas de las descripciones de los objetos. 
Para poderlas emitir, el Juego de aventuras dispone de dos 
líneas de pantalla; una tercera línea se encarga del scrolI 
de las informaciones visualizadas. Procure pues, elegir 
descripciones lo más escuetas posible al confeccionar su 
propio juego de aventuras gráficas. Esta solución está 
perfectamente justificada, puesto que el jugador prestará 
más atención a la Imagen que al texto. 

Nuestra mi ni versión ck? la fiebre del oro también deberá 
editarla siguiendo el mismo procedimiento. 


ESTRUCTURA DE LA IMAGEN 

Es preferible, encargar la estructura de cada gráfica a 
algunos subprog»'amas, que serán llamados por el motor. 

Hay que tener en cuenta que está rutina de visuaIIzacíón 
no precisa ser reclamada después de cada entrada efectuada 
por el jugador, puesto que no es nece.arlo dibujar de nuevo 
el mismo lugar después de cada acción realizada en él. 

Por esta razón Introducimos otra variable de control: 

1090 IF VIEJOoJUGADOR THEN GOSUB 30000 

1100 VIEJ0=JUGAD0R 

Si hay que representar un lugar en la pantalla, nos 
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dirigiremos al bloque que contiene las rutinas gráficas. 

A continuación, se transmite su número a la variable 
VIEJO. SI el jugador se aleja entonces del lugar de los 
hechos, se cumple la condición de la línea 1090 y se vuelve 
a llamar a la 30000, que escogerá el número de carácter 
correcto en función del número de lugar: 

30000 ON JUGADOhT GOSUB 31000,32000,330 

00 

30010 RETURN 

31000 REM DIBUJAR LUGAR 1 

319‘;9 RETURN 

32000 REM DIBUJAR LUGAR 2 

31999 RETURN 

Después siguiendo la ejecución del programa se emite la 
descripción de los objetos en la forma habitual. 


Si usted prefiere ahora, construir las gráficas con ayuda 
de un Intirpretador, Inserte a partir de la línea 30000 las 
correspondientes rutinas del programado. gráfico, que le 
presentaremos más adelante. 

Para ello sólo necesita las dos modalidades cargar Imagen 
y dibujar Imagen, que comienzan en las líneas 7000 y 5000, 
respectlvamente. 


V 
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CAPITULO 5 

- PRACTICA DE AVENTURAS 
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Este capítulo no le enseñaré como hacer las cosas, sino 
cuáles puede hacer, medíante el ejemplo de programas 
enteros. 

A continuación se presentamos los listados completos de 
tres Juegos de aventuras, confeccionados todos el los a 
partir de las partes de programa y rutinas desarrolladas en 
este libro. 

El primero de estos programas es el fiebre del oro, una 
aventura que ya se ha comentado ampliamente; en segundo 
lugar, debe mencionarse el "Castillo encantado". Sin 
embargo, la culminación es el "Space MIssIon", un juego 
lleno de trucos y confecionado como aventura gráfica. 

Desgraciadamente ocurre que, después de analizar este 
libro, usted podrá considerar los programas prácticamente 
como Instrucciones para llegar a la solución. Por ello, se 
aconseja compartir el trabajo del tecleado con otra persona. 

Nos referimos, sobre todo, a partir de la línea 5000, 
donde se ha programado la acción del juego. 


Seguidamente, le presentaremos los prometidos generadores 
de programas, tanto el programador gráfico como el 
Venturef \x, 

la unión de ambos programas le permitirá crear Juegos de 
aventuras controlados por menú, e Incluso podrá completarlos 
con un mínimo esfuerzo hasta obtener Impresionantes 
programas gráficos. 

Las Indicaciones e instrucciones de uso precisas se darán 
antes de cada programa. 
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INSTRUCCIONES DE JUEGO: AVENTURAS 


Una vez cargado el programa en cuestión y ejecutarlo con 
RUN, después de la Imagen titular y de otras Indicaciones 
generales sobre el Juego, aparecerán las primeras 
descripciones e Informaciones en la pantalla. 

Usted debe distinguir entre la mitad superior e Inferior 
de la pantalla: - en la superior se describe el lugar donde 
usted se encuentra en un momento determinado. Indicándole 
todos los objetos visibles. En otra línea de la pantalla se 
hace referencia a todas aquellas direcciones a las que usted 
se puede dirigir. 

La mitad inferior, en cambio, le sirve para Indicar sus 
Instrucciones al protagonista del Juego. Asimismo, en esta 
parte se muestran las Informaciones que dependen de la 
ejecución de sus entradas efectuadas. 


SUS ENTRADAS 

Sus entradas habituales constan normalmente de dos 
palabras, un verbo y un objeto. Compruebe al empezar la 
longitud de entrada exigida por la aventura en cuestión. 
Casi siempre bastan las primeras tres o cuatro letras para 
Identificar una palabra. 

Procure emplear los mismos términos que se utilizan en las 
descripciones. 

Sin embargo, esto no significa que deba reaccionar a un 
mensaje como: 

VEO UNA PUERTA ROJA. 

QUE DEBO HACER: 

con ABRE PUERTA ROJA. Normalmente basta con utilizar ABRE 
PUERTA. 
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También se admiten otro tipo de entradas llamadas 
Instrucciones de una sola palabra, que no actúan 
directamente sobre la marcha del Juego, sino que ofrecen 
determinados servicios complementarios a modo de 
Información. 


TRASLACION: 

Generalmente, usted puede moverse en las direcciones 
Indicadas. Para ello sólo tiene que teclear la letra Inicial 
de la correspondiente dirección (excepto al moverse hacía 
arriba o hacia abajo, para lo cual usará AR o AB): Norte, 
Sur, Este y Oeste: N, S, E, 0; arriba y abajo: AR, AB. 

Sin embargo, también hay excepciones, y una entrada como 
ENTRA ... puede sernos de gran utilidad. 

MANIPULACION DE OBJETOS 

Naturalmente, usted no querrá limitarse sólo a viajar a 
través del mundo Imaginarlo, sino que deberá entrar en 
acción y cumplir alguna misión. 

Esto presupone, que lo primero que tiene que hacer es 
descubrir los objetos propios de ese mundo. A continuación, 
los podrá INSPECCIONAR, COGER, UTILIZAR, etc. (si alguna vez 
no sabe cómo continuar, debería acordarse de estas 
palabras). 

Para alcanzar de la forma más rápida posible su objetivo, 
deberá proceder a partir de este momento de forma lógica y 
ordenada. 

Supongamos, que usted encuentre una llave en algún sitio. 
Seguramente pensará ¡estupendo!, pero ¿qué puedo hacer con 
el la? 
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En ia vida real, usted se fijaría bien en la llave, la 
Inspeccionaría y después decidiría si dejarla donde estaba, 
o si se la llevaría por considerarla útil o Incluso valiosa. 
También tendrá que realizar cada uno de estos pasos en la 
aventura. 

Entre: INSPECCIONA LLAVE. Quizás obtenga la respuesta: ES 
LA LLAVE DE MI PISO o: ES UNA LLAVE DE COCHE o: ES DE ORO 
PURO. Naturalmente, usted >no se dejaría ninguna de estas 
llaves, sino que se las llevaría todas, efectuando pues la 
entrada: COGE LLAVE. En la pantalla se muestra al menos el 
mensaje O.K. (podrá ver este O.K. a menudo; significa, que 
el Interpretador de la aventura ha entendido y ejecutado su 
entrada), y también pueden seguirle otras reacciones. 

Naturalmente, ahora la llave ya no aparecerá en la línea 
superior VEO, puesto que por habérsela llevado, ya se 
encuentra en el bolsillo de su abrigo o algo parecido, pero 
ya no está en el lugar. 

SI se hubiesen acumulado de esta forma varios objetos en 
sus bolsillos, probablemente usted perdería el control de 
todos. Por esta razón se le ofrece la posibilidad de hacer 
un 


INVENTARIO 

Siempre que usted desee saber, los objetos Inútiles que 
lleva consigo, o averiguar que fue lo qué le hizo hundirse 
en las arenas movedizas, o bien determinar que objetos le 
pueden servir para resolver cierto problema, entonces sólo 
tendrá que teclear INV. 

La respuesta Inmediata será: LLEVO CONMIGO LO SIGUIENTE:, 
seguida de una lista de todos estos objetos. 
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INTERRUMPIR LA PARTIDA 


Seguramente será Incapaz de resolver una aventura con un 
sólo Intento, y naturalmente no querrá volver a empezar de 
nuevo al día siguiente. 

Por ello casi todos los Juegos de este tipo permitan 
grabar el actual estado de la partida. 

SI desea terminar la partida en ese momento, entre 
simplemente SAVE. Los programas más elaborados le 
preguntarán entonces por un nombre, bajo el cual se 
memorIzará la actual situación, mientras que los programas 
sencillos procesarán esta Instrucción Inmediatamente. 

También es aconsejable grabar la partida de vez en cuando. 
Podría presentarse, por ejemplo, la situación en que usted 
pretendiese escalar una peña cortada a pique. Es muy probable 
que usted caiga y se desnuque; la consecuencia de ello sería 
volver a empezar de nuevo y repefir todas las entradas. 

¡Una grabación a tiempo le hubiera evitado esta molestia 
poco Interesante! 


REANUDAR UNA PARTIDA INTERRUMPIDA 

Debe Introducir por supuesto la correspondiente cinta o 
diskette antes de entrar simplemente LOAD. Es posible que le 
pregunten por el nombre con el que grabó el estado de la 
partida. De lo contrario, bastará pulsar la tecla <RETURN> 
para reanudar el Juego en el lugar Interrumpido. 
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INDICACIONES ADICIONALES 


En primer lugar, usted deberá averiguar a qué tipo de 
aventura pertenece la que acaba de cargar en su ordenador, 
si su Imagen titular no le ha Informado sobre el lo, 

Tendrá que cumplir alguna misión, encontrar alguna salida 
o coleccionar tesoros. 

Inspeccione todo lo que vea y actúe siempre de forma 
lógica (para ABRIR una puerta CERRADA, necesitará primero 
una LLAVE, una BARRA de hierro o algo parecido) al menos 
hasta que sea Informado de si hay magia en juego. Entonces 
también podrá efectuar entradas absurdas, y estudiar la 
solución correcta lo antes posible. 

Preste atención sobre todo, a Informaciones del tipo ESTO 
NO ES POSIBLE DE MOMENTO que le Indican que el camino tomado 
es correcto. 

Pero desgraciadamente, no se han cumplido aún todas las 
condiciones necesarias para realizar la acción (por ejemplo, 
faltará la IIave). 

SI el verbo o el objeto no ha sido entendido, se le 
Informará de ello y usted deberá Intentar describir la misma 
acción con distintas palabras. 

Puede darse una última posibilidad que se expresa mediante 
NO ENTIENDO LO QUE QUIERES DECIR. Esto significa, que las 
palabras que usted haya utilizado en su entrada, son 
perfectamente conocidas, mientras que su combinación carece 
de sentido. También puede significar que la acción descrita 
no ha sido prevista por el programador de la aventura en 
cuestión. 


CONSEJOS PARA SOLUCIONAR UNA AVENTURA 

SI ya no sabe qué hacer en situaciones muy enmarañadas. 
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puede probar su suerte con HELP• 

SI esto no le proporcionará más Información, recuerde 
todos los objetos descubiertos hasta ese momento y 
combínelos con todos los verbos conocidos. Quizás de esta 
forma pueda encontrar una Instrucción que le permita 
realizar la acción deseada, puesto que a cada objeto le 
corresponde realizar alguna misión. No están programados con 
otra Intención. 

Resulta útil confeccionar una lista de todas las palabras 
utilizadas en el programa; probablemente, la misma aventura 
se la proporcione al efectuar la entrada VXabularlo. 

También un mapa puede ser de utilidad. En el puede Indicar 
todos los lugares, sin olvidar naturalmente, los sitios 
donde ha hallado los tesoros. 

SI se para de manera Inesperada - o también deseada, por 
ser Inevitable - en un laberinto, la confección de este tipo 
de mapa no resulta tan fácil como pueda Imaginarse. En este 
caso, suelen catalogarse tres veces más lugares de los 
realmente existentes. 

El único truco para evitar esto, consiste en depositar un 
objeto del Inventarlo en cada lugar del laberinto, 
señalándolos de esta forma. 


Repetimos otra vez el truco más Importante: 
¡Grabe su partida de vez en cuando! 
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EL CASTILLO ENCANTADO 


Quiero recomendarle especialmente este Juego de aventuras. 
En su confección se han utiiizado muchos trucos que permiten 
ofrecer sorpresas al aventurero. 

En principio, está previsto que ei jugador averigüe el 
objetivo de la aventura, problema que usted ya resolverá al 
entrar el programa en el ordenador. 

En este programa se ha utilizado gran número de las 
técnicas presentadas en este libro. A continuación 
mencionamos algunas secciones a modo de ejemplo. 

De entrada destaca la línea 181, donde puede ver la forma 
en que deberá proceder si las tres líneas de pantalla, 
programadas para efectuar las entradas de las descripciones 
neceasarias, no son suficientes. 

Además destacan las líneas 600 a 610. En ellas se emiten 
mensajes llamando los correspondientes subprogramas, técnica 
que se debería emplear con mensajes especialmente 
repetí ti vos. 

En este caso se utilizaron flags para poder controlar 
perfectamente los diferentes estados antes de abandonar el 
castiI lo. 

Cuando se cumplan todas las condiciones, se abrirá un paso 
adecuado, que ampliará el mundo de aventuras a 16 lugares. 

Además de INVENTARIO, SAVE y LOAD, también se ha 
implamentado la instrucción HELP, aunque sólo de forma 
genera I• 

No obstante, el jugador sabrá apreciar esta ayuda. 
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1 REM 



2 REM 



4 REM 



10 GRAPHICS OrSETCOLOR 2,l.OiSETCOLOR 

4,1,0:F0R 

5;PRINT :NEXT 1 



15 PRINT " 


II 

16 PRINT " 


II 

17 PR1 NT " 


II 

18 PRINT " 


II 

19 PRINT " 


II 

20 PRINT " 


II 

21 PRINT " 

CASTILLO 

II 

22 PRINT " 

ENCANTADO 

II 

23 PRINT " 


II 

24 PRINT " 

UNA AVENTURA 

II 

25 PRINT •' 

DE 

II 

26 PRINT ” 

FERRE MORET" 


27 PRINT " 


II • 
f 

100 REM *** DATEN 

DES ADVENTURES 



lio AR=26:A0=45:AF=3 

120 JUGAD0R=9 

140 TRAP PEEK(195) 

150 OIM 

LUGAR$(80).pasada(AR,6),DIRECCI0N$(36).ENTRADAS!20),T$(40),0B 
(AO).BLANC0$(38).DZ$(50).ZENDE$(3).FL(5) 

160 OIM 

VERB0SS(80),EVERB0S(20),EOBJETOS(20).OBJETOS$(220).M0S(40),M1 

$(30),M2${30).M3S(30),M4$(38).M5S(38) 
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170 VERBOS$="EXAMINA COGE LEE ABRE UTILIZA 

DESTRUYE ENCIENDE PON DESPIERTA " 

180 OBJETOS$="ESTAMESAARI 

CACEBOTEFUENLIBRGUARCUERHABIHUESPAPECOCICUCHBALLLLAVTAL PUEN 
ARBO ESTA ARBO" 

181 OBJETOS$(LEN(OBJETOS$)+1)=" URRACAVE OROARMA 

PANTBARRHUEVSUELAGUAPOZO TELABOTE NIDOSERPALTA" 

190 GOTO 700 

200 REM ***** DESCRIPCION DE LUGARES 

201 PRINT "EN LA BIBLIOTECA DEL CASTILLO":RETURN 

202 PRINT "EN EL CUARTO DE ESTU010S.":RETURN 

203 PRINT "EN LA COCINA.":RETURN 

204 PRINT "EN EL PATIO DEL CASTILLO.":RETURN 

205 PRINT "EN UNA DE LAS TORRES DE GUARDIA.":RETURN 

206 PRINT "EN EL PATIO DEL CASTILLO.":RETURN 

207 PRINT "DELANTE DEL PUENTE ELEVADIZO.":RETURN 

208 PRINT "EN LA GRAN SALA DE FIESTAS.":RETURN 

209 PRINT "EN UNA HABITACION PARTICULAR.":RETURN 

210 PRINT "SOBRE UN PUENTE ELEVAD120."iRETURN 

211 PRINT "EN EL PATIO DEL CASTILLO."iRETURN 

212 PRINT "EN UN CAMINO DEL BOSQUE.":RETURN 

213 PRINT "EN EL BOSQUE ENCANTADO.":RETURN 

214 PRINT "EN UNA OSCURA CAVERNA."rRETURN 

215 PRINT "EN EL BOSQUE.":RETURN 

216 PRINT "EN EL BOSQUE ENCANTADO.":RETURN 

217 PRINT "EN EL BOSQUE ENCANTADO.":RETURN 

218 PRINT "AL PIE DE UNA COROILLERA."iRETURN 

219 PRINT "EN UNA OSCURA CAVERNA.":RETURN 
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220 PRINT "EN UN CASTILLO."rRETURN 

221 PRINT "EN EL BOSQUE."rRETURN 

222 PRINT "EN EL PANTANO."rRETURN 

223 PRINT "EN EL PANTANO."rRETURN 

224 PRINT "EN UNA FUENTE."rRETURN 

225 PRINT "EN UNA OSCURA CAVERNA."rRETURN 

226 PRINT "EN EL POZO DE LAS SERPIENTES."rRETURN 

300 REM ***** OBJETOS 

301 T$="INNUMERABLES ESTANTERIAS"rRETURN 

302 T$="UNA MESA"rRETURN 

303 T$="MI PROFESOR ARI AT"rRETURN 

304 T$="UNA GRAN CACEROLA"rRETURN 

305 T$="UNA BOTELLA"rRETURN 

306 T$="LA FUENTE DEL CASTILLO"rRETURN 

307 T$="UN LIBRO"rRETURN 

308 T$="GUARDIAS DURMIENDO"rRETURN 

309 T$="LAS CUERDAS DEL PUENTE ELEVAD IZO"rRETURN 

310 T$="HAB1TANTES DEL CASTILLO"rRETURN 

311 T$="MIS HUESPEDES"rRETURN 

312 T$="UN PAPEL"rRETURN 

313 T$="UNA MESA DE LA COCINA"rRETURN 

314 T$="UN CUCHILLO DE CARNICERO"rRETURN 

315 TS="UNA BALLESTA"rRETURN 

316 T$="UNA LLAVE"rRETURN 

317 T$="UN PESADO PORTAL DE HIERRO"rRETURN 

318 T$="UN PUENTE ELEVADIZO"rRETURN 

319 T$="NADA ESPECIAL"rRETURN 

320 T$="NADA ESPECIAL"rRETURN 

321 T$="ARBOLES"rRETURN 

322 T$="ARBOLES"rRETURN 

323 T$="VAR1AS ESTANTERIAS LLENAS"rRETURN 

324 T$="NADA ESPECIAL"rRETURN 

325 TS="ARBOLES"rRETURN 

326 T$="ARBOLES"rRETURN 
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327 T$="ARBOLES»':RETURN 

328 T$=»ÜNA GRAN URRACA”:RETURN 

329 T$='»LA ENTRADA DE UNA CAVERNA”:RETURN 

330 T$=”UN METALL CON RESPLANDOR DE ORO”:RETURN 

331 T$=”UNA ARMADURA VIEJA”:RETURN 

332 T$=”NADA ESPECIAL”:RETURN 

333 T$=”UN PANTANO”:RETURN 

334 T$=”BARRO”:RETURN 

335 T$=”HUEVOS DE SERPlENTE”:RETURN 

336 T$=”EL SUELO INSEGURO”:RETURN 

337 T$=”AGUA TORRENCIAL”:RETURN 

338 T$=”EL POZO DE UN CASTILLO”:RETURN 

339 T$=”NADA ESPECIAL”:RETURN 

340 T$=”TELARANYAS”:RETURN 

341 T$=”UNA BOTELLA CON AGUA AZUL”:RETURN 

342 T$=”NADA ESPECECIAL”:RETURN 

343 T$=”UN NIDO DE SERPIENTES”:RETURN 

344 T$=”SERPIENTES”:RETURN 

345 T$=”UN ALTAR DE P1EDRA":RETURN 

400 REM POSICION OBJETOS 

410 DATA 

1,1,2,3,0,4,0,5,5,8,8,0,3,0,5,0,6,7,9,11,12,13,14,25,15,16,17 

,17,18,19,0,21,0,23,26,23,24,10,20,0,0,19,22 

420 DATA 26,25 

500 REM ***** TABLA DE DIRECCIONES 

501 DATA O,3,0,2,O,O 

502 DATA 0,0,1.0.O,O 

503 DATA 1,8,O,4,O,O 

504 DATA O,8,3,6,O,O 

505 DATA 0,0,0,0,0,11 

506 DATA 11,0,4,0,0,0 

507 DATA O,O,6,O,0,0 

508 DATA 4,8,3,9,0,0 

509 DATA 9,9,8,O,O,O 

510 OATA 0,0,7,12,0,0 

511 DATA O,6,O,0,5,O 

512 DATA 12,16,10,13,0,0 
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513 DATA 21,17,12,15,0,0 

514 DATA 0,18,14,0,0,0 

515 DATA 15,15,15,16,0,0 

516 DATA 12,21,15,17,0,0 

517 DATA 13,22,16,18,0,0 

518 DATA 14,0,17,19,0,0 

519 DATA 25,0,18,19,0,0 

520 DATA 20,20,20,21,0,0 

521 DATA 16,21,20,21,0,0 

522 DATA 17,0,0,23,0,0 

523 DATA 0,0,22,24,0,0 

524 DATA 23,24,0,23,0,0 

525 DATA 25,19,25,14.14,0 

526 DATA 0,0,0,0,22,0 

600 PRINT ”N0 ENTIENDO LO QUE QUlERES!”:RETURN 

601 PRINT ”N0 VEO NADA ESPECIAL.”:RETURN 

602 PRINT ”N0 SOY TAN FUERTE.”:RETURN 

603 PRINT ”PARECEN DORMIR PROFUNDAMENTE.”iRETURN 

604 PRINT ”N0 CREO QUE SEA MUY RAZONABLE.RETURN 

606 PRINT ”LA URRACA ME HA ROBADO ALGO !”;RETURN 

607 PRINT ”AQUI HAY UNA VIEJA ARMADURA.”:RETURN 

608 PRINT ”TIENE UN PAPEL EN LA MANO.”:RETURN 

609 PRINT ”EN UN BOLSILLO HAY UNA LLAVE.”iRETURN 

610 PRINT ”HAY UNA INSCRIPCION QUE DICE:”:PRINT ”ACEPTA 
NUESTRO SACRIFICIO Y TEN PIEDAD DE NOSOTROS.”iRETURN 

699 REM ***** TITEL;EINLEITUNG 

700 PRINT ” ”:PRINT :PRINT ” DESEA CONSEJOS PARA 
SEGUIR”;:INPUT ENTRADAS 

798 IF ENTRADA$(1,1)=”S” THEN GOSUB 800 
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799 GOTO 900 

800 GRAPHICS 0:SETC0L0R 2,1,0:SETC0L0R 4,1,0 

820 PRINT " ATARI AVENTURAS ”:PRINT ” 

(C) 1984 BY JOERG WALKOWIAK '*:REM INVERS 

830 PRINT :PRINT "Imagínese un robot al cual puede ^ 

dirigir mediante numerosos comandos." 

840 PRINT "Yo soy tal robot y correre para Ud." 

850 PRINT "todos los peligros en las aventuras mas 
arrlesgadas." 

855 PRINT "Para que Ud. pueda manejarme de forma razonable,le 
describiré con detalle" 

860 PRINT "la situación en la que me encuentre.":PRINT "Acto 
seguido Ud. me ordenara mediante" 

863 PRINT "dos palabras, p. e." 

870 PRINT "EXAMINA PUERTA, COGE CUCHILLO, lo que yo deba 
hacer .":PRINT "Ademas entiendo las ordenes" 

880 PRINT " INVENTARIO y AYUDA" 

885 PRINT " SAVE, LOAD," 

887 PRINT " asi como F|N.":PRINT 

890 PRINT "POR FAVOR TECLEE <RETURN> Y...";:INPUT 

ENTRADAS:GRAPHICS OiRETURN :REM INVERSO 

900 FOR 1=1 TO AO 

910 READ PARADERO:0B(l)=PARADERO 

920 NEXT I 

930 FOR 1=1 TO AF:FL(l)=0;NEXT I 
940 FOR LUGAR=1 TO AR 
950 FOR DIRECCI0N=1 TO 6 

960 READ META:PASADA(LUGAR,DIRECCION)=META 
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970 NEXT DIRECCION 
980 NEXT LUGAR 

1000 GRAPHICS OiSETCOLOR 2,1,0:SETCOLOR 4,1,0:GOTO 1020 

1010 REM ***** TEXTO CLAR0:0IRECCIONES 

1011 TS="N0RTE, ":RETURN 

1012 T$="SUR, ":RETURN 

1013 T$="0ESTE, ":RETURN 

1014 T$="ESTE, ":RETURN 

1015 T$="ARRIBA, ":RETURN 

1016 T$="ABAJ0, ":RETURN 

1020 BLANC0$=" " 

1030 T$="" 

1040 

ZENDE $=CHR $(30):ZENDE $(LEN(ZENDE $) +1)=CHR $(30):ZENDE $(LEN(ZEN 
DES)-»-! )="." 

1080 PRINT 

1090 FOR LINEA=0 TO 10:P0SITI0N 2,LINEA:PRINT BLANCOS:NEXT 
LINEA 

1100 POSITION 2,0:PRINT "ESTOY EN ";:GOSUB 200-»-JUGADOR 
1110 DZS="VE0 " 

1120 FOR 1=1 TO AO 

1130 IF 0B(l)<>JUGADOR THEN GOTO 1170 

1140 IMPRES0=-1:G0SUB 300-»-1 :TS(LEN(TS)+ 1 )=", " 

1150 IF LEN(D2S)-*-LEN(TS)>=38 THEN PRINT 
DZS:DZ$=TS(1,LEN(TS)):T$="":G0T0 1170 
1160 DZS(LEN(DZS)-H )=TS:T$="" 

1I70 NEXT I 

1180 IF NOT IMPRESO THEN 0ZS(LEN(DZS)-»-l )="NADA ESPECIAL" 

1190 DZS(LEN(D2S)-»-l )=ZENDES 
1200 PRINT DZS 
1210 PRINT BLANCOS 
1220 DZS="PUED0 IR AL ":IMPRESO=0 
1230 FOR DIRECCI0N=1 TO 6 

1240 IF PASADA((JUGADOR,DIRECCI0N)=0 THEN GOTO 1280 
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1250 GOSUB 1010+01RECCION:IMPRES0=-1 
1260 IF LEN(DZ$)+LEN(T$)>=38 TREN PRINT 
DZ$:DZ$=T$(1.LEN(T$)):T$="";G0T0 1280 
1270 DZ$(LEN(0Z$) + 1 )=TS:T$="" 

1280 NEXT DIRECCION 

1290 IF NOT IMPRESO THEN 0Z$(LEN(0Z$)+1)="EN NINGUNA PARTE" 
1300 DZ$(LEN(DZ$)+t)=ZENDE$ 

1310 PRINT DZ$ 

1320 PRINT " 37 CONTROL R 

1340 IF JUGADOR=25 THEN GOSUB 14000 

1390 POSITION 2,23;PRINT "QUE HAGO "::INPUT ENTRADAS 

1392 IF JUGAD0R=17 THEN GOSUB 15000 

1394 IF JUGADOR=23 THEN GOSUB 15100 

1396 IF JUGAD0R=15 THEN GOSUB 15200 

1400 IF LEN(ENTRADAS)>2 THEN 1480 

1410 IF ENTRADA$="N" ANO PASADA!JUGADOR,1)<>0 THEN 

JUGADOR=PASADA(JUGADOR,1):PRINT "O.K.":GOTO 1080 

1420 IF ENTRAOA$="S" AND PASADA!JUGADOR,2)<>0 THEN 

JUGAOOR=PASAOA!JUGADOR,2):PR1NT "O.K.":GOTO 1080 

1430 IF ENTRADAS="0" AND PASADA!JUGADOR,3)<>0 THEN 

JUGADOR=PASAOA!JUGADOR,3):PRINT "O.K.":GOTO 1080 

1440 IF ENTRADA$="E" ANO PASADA!JUGADOR,4)<>0 THEN 

JUGADOR=PASADA!JUGADOR,4):PRINT "O.K.":GOTO 1080 

1450 IF ENTRADA$="AR" AND PASADA!JUGADOR,5)<>0 THEN 

JUGADOR=PASADA!JUGADOR,5)rPRlNT "O.K.":GOTO 1080 

1460 IF ENTRADA$="AB" AND PASADA!JUGADOR,6)<>0 THEN 

JUGADOR=PASADA!JUGADOR,6):PRINT "O.K.":GOTO 1080 

1470 IF LEN!ENTRADA$)<3 THEN PRINT "HACIA ALLI NO HAY NINGUN 

CAMINO !";GOTO 1080 

1480 IF LEN!ENTRADA$)>8 THEN GOTO 2000 
1499 REM ***** COMIENZO INVENTARIO 
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1500 IF ENTRADAS!!, 3)0" INV" THEN GOTO 1600 
1510 PRINT "LLEVO CONMIGO LO SIGUIENTE:" 

1520 FOR 1=1 TO AO 

1530 IF 0B!I)=-1 THEN GOSUB 300+1:PRINT TS 
1540 NEXT I 
1550 GOTO 1080 

1560 REM ***** FIN INVENTARIO 

1599 REM ***** SAVE GAME 

1600 IF ENTRADAS!1,3)<>"SAV" THEN GOTO 1700 
1605 PRINT "CON QUE NOI^RE";: INPUT ENTRADAS: IF 
LEN!ENTRADAS)>8 THEN PRINT "MAS CORTO POR FAVOR !":GOTO 1605 
1610 TS="D:":ENTRADAS!LEN!ENTRADAS)+1)=".DAT" 

1615 TS!LEN!TS)+1)=ENTRADAS 
1620 OPEN+fc 1,8,0,TS 
1625 PRINTJt 1, JUGADOR 

1630 FOR 1=1 TO AO 

1631 PRINT 14^1 ,OB!l) 

1632 NEXT I 

1635 FOR LUGAR=1 TO AR 

1636 FOR DIRECC10N=1 TO 6 

1637 PRINT 1,PASADA!LUGAR,DIRECCION) 1638 NEXT 

DIRECCION 

1639 NEXT LUGAR 

1645 FOR 1=1 TO AF 

1646 PRINT i±l,FL!n 

1647 NEXT I 
1650 CLOSEUl 

1670 PRINT "O.K.":GOTO 1080 

1699 REM ***** LOAD GAME 

1700 IF ENTRADAS!1,3)<>"L0A" THEN GOTO 1800 

1705 PRINT "QUE JUEGO "::INPUT ENTRADAS:IF LEN!ENTRADAS)>8 
THEN PRINT "NO PUEDE HABERLO !":GOTO 1705 
1710 TS="D:":ENTRADAr;LEN!ENTRADAS)+l)=".DAT" 
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1715 T$(LEN(T$)+1)=ENTRAOA$ 

1720 OPENM 1,4,0,T$ 

1725 INPUTí» 1, JUGADOR 

1730 FOR 1=1 TO AO 

1731 INPUT 1,SITUAC10N:0B(I)=SITUACI0N 

1732 NEXT I 

1735 FOR LUGAR=1 TO AR 

1736 FOR 0IRECCI0N=1 TO 6 

173 7 1NPU Tttl,ME TA;PASADA(LUGAR,DIRECC1ON)=ME TA 

1738 NEXT DIRECCION 

1739 NEXT LUGAR 

1745 FOR 1=1 TO AF 

1746 INPUT¿^ 1,FLAG;FL(1)=FLAG 

1747 NEXT 1 
1750 GLOSE #1 

1770 PRINT •■O.K.":GOTO 1080 

1800 IF ENTRADAS!1,3)<>"AYU" THEN GOTO 1900 

1810 GOSUB 1880 

1820 GEDRUCKT=0 

1830 FOR 1=1 TO LEN(VERBOS$) STEP 10 

1840 PRINT VERBOSS! I, l+9);IMPRES0=IW’RES0+l 

1850 IF IMPRES0=18 THEN GOSUB 1890:IMPRES0=1:GOSUB 1880 

1860 NEXT I 

1870 GOSUB 1890:GRAPH1CS OiSETCOLOR 2,1,0:SETC0L0R 4,1,0:G0T0 
1080 

1880 GRAPHICS 0:SETCOl.0R 2,1,OiSETCOLOR 4.1,0:PRINT "INTENTA 
LAS SIGUIENTES ACCIONES...":PRINT :RETURN 
1890 PRINT :PRINT :PR1NT "APRETAR <RETURN>.INPUT 
ENTRADASiRETURN 

1900 IF ENTRADAS! 1,3)0" INS" THEN GOTO 1950 
1910 GOSUB 800 
1920 GOTO 1080 

1950 IF ENTRADAS!!,3)<>"FIN" THEN GOTO 2000 
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1960 GRAPHICS 0:PRINT "EL AUTOR LE DESEA MAS SUERTE PARA 
LA":PRINT "PROXIMA VEZ!":PRINT :PRINT -.PRINT ;END 

1999 REM ****» SEPARAR ENTRADA 

2000 LN=LEN!ENTRADAS) 

2010 FOR 1=1 TO LN 

2020 IF ENTRADAS!I,I)<>" " THEN NEXT I 
2030 EVERBOS=ENTRADAS!1,1) 

2040 IF LEN!EVERB0$)=LN-1 THEN GOTO 2090 
2050 E08JET0S=ENTRADAS!I+1,LN) 

2060 VN=0:N=0 

2070 EVERB0S=EVERB0S!1,3) 

2080 EOBJETOS=EOBJETOS!1,3) 

2090 FOR 1=1 TO LEN!VERBOSS)-2 STEP 10 
2100 VN=VN+1 

2110 IF VERBOSS!1,1+2)=EVERBOS THEN 2140 
2120 NEXT I 

2130 PRINT "NO ENTIENDO EL VERBO !":G0T0 1080 
2140 FOR 1=1 TO LEN!OBJETOSS) STEP 4 
2150 N=N+1 

2160 IF OBJETOSS!1,l+2)=E0BJET0S THEN GOTO 2200 
2170 NEXT I 

2180 PRINT "NO COMPRENDO EL OBJETO.":GOTO 1080 
2200 ON VN GOTO 

5000,6000,7000,8000,9000,10000,11000,12000,16000 
4500 GRAPHICS 0:REM ***** MUERTE JUGADOR 
4600 PRINT "LO QUE FALTABA!":PRINT :PRINT MOS 
4610 PRINT tPRINT "ESTOY MUERTO!":PRINT 

4620 PRINT "QUIERE QUE LO INTENTE DE NUEVO INPUT ENTRADAS 
4630 IF ENTRADAS!1,1)="S" THEN CLR :GOTO 100 
4640 GOTO 1960 
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4800 GRAPHICS 0 

4810 PRINT "FELICIDADES I" 

4820 PRINT "HA ENCONTRADO LA SOLUCION DEL PROBLEMA":PRINT "Y 
PUEDE INTENTAR UNA NUEVA AVENTURA." 

4840 PRINT -.PRINT :PRINT :END 

4900 PRINT "ATENCION ERROR !":GOTO 1080 

4999 REM ***** EJECUCION DE LAS JUGADAS 

5000 IF OB(N)<>JUGADOR ANO 06(N)<>-1 THEN GOTO 5900 

5001 IF N=16 AND JUGADOR=20 AND 0B(31)<>-1 AND 0B(40)<>-1 
THEN GOSUB 607:0B<3;)=20:OB(4O)=20:GOTO 1080 

5002 IF N=10 AND JUGAD0R=8 THEN GOSUB 603:GOT0 1080 

5003 IF N=11 AND JUGAD0R=8 THEN GOSUB 603:G0T0 1080 

5004 IF N=4 ANO (JUGAD0R=3 OR 0B(4)=-1) THEN GOSUB 601:60TO 
1080 

5005 IF N=5 ANO (JUGAD0R=3 OR 06(N)=-1) THEN GOSUB 601:GOTO 
1080 

5006 IF N=1 AND JUGA00R=1 THEN GOSUB 601:G0T0 1080 

5008 IF N=3 AND JUGAD0R=2 AND 0B{12)=0 THEN GOSUB 
608;0B(12)=2:G0T0 1080 

5009 IF N=3 AND JUGAD0R=2 THEN GOSUB 601:GOTO 1080 

5010 IF N=6 AND 0B(5)=0 THEN PRINT "SOBRE EL AGUA FLOTA UNA 
BOTELLA.":OB(5)=J UGADOR;60TO 1080 

5011 IF N=7 ANO (JUGAD0R=1 OR 0B(N)=-1) THEN PRINT "ES UN 
libro SOBRE POCIONES MAGICAS.";GOTO 1080 

5012 IF N=8 AND JUGAD0R=5 AND 0B(16)=0 THEN GOSUB 
609:OB(16)=JUGADOR:GOTO 1080 

5013 IF N=9 AND NOT FLd) THEN GOSUB 601:G0TO 1080 
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lj^5014 IF N=9 ANO FLd) AND JUGAD0R=5 THEN PRINT "NO ESTA EN 
CONDICIONES DE FUNCIONAR.";GOTO 1080 

5015 IF N=12 AND 06(12)=-1 THEN PRINT "HAY ALGO ESCRITO 
ENCIMA.";OB(16)=J UGADOR;GOTO 1080 

5016 IF N=I2 AND 0B(12)=2 THEN PRINT "ENTONCES PRIMERO TENGO 
QUE COGERLO.";GOTO 1080 

5017 IF N=13 AND 0B(14)=0 THEN PRINT "SOBRE LA MESA HAY UN 
CUCHILLO.";0B(I4)=3;G0T0 1080 

5018 IF N=2 AND (0B(7)=1 OR 06(7)=0) THEN PRINT "HAY UN LIBRO 
VIEJO ENCIMA.";0B(7)=1;GOTO 1080 

5019 IF N=14 AND (0B(14)=JUGA00R OR 0B(14)=-1) THEN PRINT 
"ESTA MUY AFILADO.":GOTO 1080 

—5020 IF N=15 AND (OB(N)=JUGADOR OR 0B(N)=-1) THEN GOSUB 
601;GOTO 1080 

5021 IF N=16 ANO (0B(16)=-I OR 0B(16)=JUGADOR) THEN GOSUB 
601;GOTO 1080 

5022 IF N=17 ANO JUGA00R=6 AND FL(3)<>-1 THEN PRINT "ESTA 
CERRADA.":GOTO 1080 

5023 IF N=17 ANO JUGAD0R=6 AND FL(3)=-1 THEN PRINT "ESTA MUY 
ABIERTA.":GOTO 1080 

5024 IF N=18 AND JUGAD0R=7 ANO FLd) THEN PRINT "EL PUENTE 
ELEVADIZO BAJA.":PASADA(7,4)=10;G0T0 1080 

5025 IF N=18 AND JUGAD0R=7 AND NOT FLd) THEN PRINT "EL 
PUENTE ELEVADIZO ESTA SUBIDO.":GOTO 1080 

5026 IF N=21 THEN GOSUB 601;GOTO 1080 

5027 IF N=23 AND JUGA00R=14 THEN MO$="ES UN LABORATRIO 
MAGICO. EL MAGO VIENE Y ME TRANSFORMA EN PIEDRA.":GOTO 4500 

5028 IF N=28 AND JUGAD0R=17 THEN PRINT "REALMENTE ES UN 
EJEMPLAR HERMOSO.":GOSUB 13000:GOTO 1080 
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^5029 IF N=29 AND JUGAD0R=I8 THEN PRINT "SALE UN aOR 
RARO.":GOTO 1080 

5030 IF N=30 AND (JU6AD0R=19 OR 0B(30)=-1) THEN PRINT "EL 
METAL SIN NINGUN VALOR.":GOTO 1080 

5031 IF N=31 AND (JUGAD0R=20 OR 0B<31)=-n THEN GOSUB 
601:G0T0 1080 

5032 IF N=35 AND (JUGAD0R=26 OR 0B(35)=-1) THEN GOSUB 
601:GOTO 1080 

5033 IF N=36 AND JUGADOR=23 THEN PRINT "NO PARECE MUY 
FIRME.":GOTO 1080 

5034 IF N=37 AND JUGADOR=24 THEN PRINT "ES EL FAMOSO AGUA 
AZUL.":GOTO 1080 

5035 IF N=38 ANO JUGADOR=10 THEN GOSUB 601:GOTO 1080 

5036 IF N=40 AND {JÜ6AD0R=20 OR 0B(40)=-I) THEN GOSUB 
601:GOTO 1080 

5037 IF N=43 THEN JUGADOR=26:PRINT "O.K.":GOTO 1080 

5038 IF N=45 THEN GOSUB 610:G0T0 1080 

5899 GOSUB 601:GOTO 1080 

5900 IF N=21 THEN GOSUB 601:G0TO 1080 

5901 IF N=16 AND JUGADOR=20 ANO 0B(31)<>-1 ANO 0B(40)<>-1 
THEN GOSUB 607:0B(31)=2O:OBt40)=20:GOTO 1080 

5902 IF N=33 AND JUGAD0R=23 THEN GOSUB 15100:PRINT "PARECE 
QUE HAY UNA FUENTE AL ESTE.":GOTO 1080 

5903 IF N=16 AND (JUGAOOR=23 OR 0B(34)=-1) THEN PRINT "ES 
BARRO TERAPEUTICO.":GOSUB 15100:G0TO 1080 

5904 IF N=2 AND JUGAD0R=3 AND 0B(14)=0 THEN PRINT "SOBRE LA 
MESA HAY UN CUCHILLO.":0B(14)=3:G0T0 1080 

5905 IF N=2 AND JUGA00R=3 ANO 0B(14)<>0 THEN GOSUB 601:GOT0 
1080 

5990 PRINT "AQUI NO VEO TAL COSA !":GOTO 1080 
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6000 IF OBíNIoJUGADOR AND 0B{N)<>-1 THEN GOTO 6900 

6001 IF N=1 THEN GOSUB 602:GOTO 1080 

6002 IF N=6 THEN GOSUB 602:GOTO 1080 

6003 IF N=17 THEN GOSUB 602:G0T0 1080 

6004 IF N=2 THEN GOSUB 604:GOTO 1080 

6005 IF N=3 THEN GOSUB 604:G0T0 1080 

6006 IF N=8 THEN GOSUB 604:G0T0 1080 

6007 IF N=IO THEN GOSUB 604:G0T0 1080 

6008 IF N=n THEN GOSUB 604:GOTO 1080 

6009 2A=0:F0R 1=1 TO AO:IF 0B(I)=-1 THEN ZA=ZA+1:IF ZA=4 THEN 
GOTO 6999 

6010 NEXT I 

6011 IF N=5 THEN 08(N)=-1:PR|NT "O.K.";GOTO 1080 

6012 IF N=7 THEN 0B(N)=-1:PR|NT "O.K.":GOTO 1080 

6013 IF N=12 THEN 0B(N)=-1:PR(NT "O.K.":GOTO 1080 

6014 IF N=15 THEN OB(N)=-l:PR|NT "O.K.":GOTO 1080 

6015 IF N=16 THEN 0B(N)=-1:PR|NT "O.K.":GOTO 1080 

6016 IF N=14 THEN 0B(N)=-1:PR|NT "0.K.":60T0 1080 

6017 IF N=9 THEN GOSUB 602:GOTO 1080 

6018 IF N=23 THEN GOSUB 602.-GOTO 1080 

6019 IF N=28 THEN PRINT "CON QUE LA CAZO ?":GOSUB 13000:GOTO 

1080 

6020 IF N=18 THEN GOSUB 600:60T0 1080 

6021 IF N=30 THEN 0B(N)=-1:PR1NT "O.K.":GOTO 1080 

6022 IF N=31 THEN 06(31)=-|:PRINT "ME HE PUESTO LA 
ARMADURA.":GOTO 1080 

6023 IF N=35 ANO 0B(3I)=-l THEN PRINT "O.K.":OB(35)=-l-GOTO 
1080 

6024 IF N=35 AND 08(31)<>-! THEN MO$="ME HA MORDIDO UNA 
SERPIENTE.":GOTO 4500 


189 

















6025 IF N=36 THEN GOSUB 604:GOTO 1080 

6026 IF N=37 AND 0B(5)=-1 THEN PRINT 
"0.K.":0B(5)=0:0B(4I )=-1:GOTO 1080 

6027 IF N=37 AND 0B(5)<>-1 THEN PRINT "ANTES NECESITO UNA 
BOTELLA VACIA.":GOTO 1080 

6028 IF N=38 THEN GOSUB 600:G0T0 1080 

6029 IF N=40 THEN 0B(40)=-1;PRINT "O.K.":GOTO 1080 

6032 IF N=13 THEN GOSUB 604:GOTO 1080 

6033 IF N=4 THEN 0B(4)=-1;PR1NT "O.K.":GOTO 1080 

6900 IF N=16 AND JUGAD0R=23 AND 0B(4)<>-1 THEN PRINT "ANTES 
NECESITO UN RECIPIENTE 1":G0T0 1080 

6901 IF N=16 ANO JUGA00R=23 ANO 0B(4)=-I THEN PRINT 
"0.K.":0B(34)=-1:G0T0 1080 

6902 IF N=2 AND JU6AD0R=3 THEN GOSUB 604:G0T0 1080 

6998 PRINT "AQUI NO VEO TAL COSA l":GOTO 1080 

6999 PRINT "LO SIENTO-PERO YA LLEVO BASTANTE ":GOTO 1080 

7000 IF N=13 ANO 0B(12)<>-1 THEN PRINT "NO TENGO NINGUN 
PAPEL.":GOTO 1080 

7001 IF N=12 ANO 0B(12)=-1 THEN C0=INT(RND(1)*100):PRINT "VEO 
UNA ESCRITURA TEMBLOROSA:";C0:GOTO 1080 

7002 IF N=7 /WD 0B{7)=-1 THEN GOTO 7650 

7003 IF N=7 AND 0B(7)<>-1 THEN PRINT "PARA ELLO PRIMERO TENGO 
QUE TENERLO.":GOTO 1080 

7649 GOSUB 600:GOTO 1080 

7650 PRINT "QUE LADO";:INPUT SE 

7651 IF SEoCO THEN GOSUB 601:G0TO 1080 

7652 GRAPHICS 0;SETCOLOR 2,1,0:SETC0L0R 4,1,0:PRINT "CONSEJOS 
PARA EMERGENCIAS":PRINT 
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7654 PRINT "SI OCURRIERE QUE LOS TUYOS FUESEN":PRINT 
"SOMETIOOS POR UN MAGO DE MAL TALANTE" 

7655 PRINT "AL LARGO SUENYO, ESCUCHA MI CONSEJO":PRINT 
7657 PRINT :PRINT "ENCUENTRA LOS CUATRO INGREDIENTES":PRINT 
"PARA EL AGUA QUE CURA DE HNBUG Y" 

7659 PRINT "LLEVASELOS AL MAGO DEL OTRO LADO DEL":PRINT 
"BOSQUE MAGICO." 

7660 PRINT "SI LE CAES BIEN, EL TE AYUDARA." 

7661 PRINT "SI NO LE CAES BIEN SOLO TE QUEDA LA":PRINT 
"ESPERANZA DE ENCONTRARTE CON UN PRINCIPE," 

7663 PRINT "EL CUAL A MODO TRADICIONAL DESPERTARA":PRINT "A 
TU HIJA Y A TODOS LOS" 

7665 PRINT "HABITANTES DEL CASTILLO !" 

7666 OPEN*t1,4,0,"K:" 

7667 GETitl,A 

7668 GLOSE 4Jl 

7669 GRAPHICS O:SETCOLOR 2,1,0:SETC0LOR 4,1,0:G0T0 1080 
7900 OB(N)=JUGADOR:PRINT "O.K.":GOTO 1080 

8000 IF N=17 AND 0BÍ16)<>-1 THEN PRINT "CON QUE 7";G0T0 1080 

8001 IF N=17 ANO 0B(16)=-1 ‘'HEN PRINT 
"O.K.":PASADA(6,4)=7:FL(3)=-1:GOTO 1080 

8002 IF N=35 AND 0B(35)=-1 THEN PRINT "DENTRO HABIA UN 
LIQUIDO VISCOSO.";GOTO 1080 

8999 PRINT "NO ENTIENDO LO QUE 0UIERES.":GOTO 1080 

9000 IF N=9 AND 0B(14)=-1 AND JUGAD0R=5 THEN PRINT "LAS 
CUERDAS ESTAN CORTADAS.":FL(1)=-1:GOTO 1080 


191 













¿^900) IF N=9 ANO 06(14)0-1 ANO JUGA00R=5 THEN PRINT "CON 
(JUE?":GOTO 1080 

9999 GOSUB 60O:GOTO 1080 

10000 IF OB(N)oJUGAOOR ANO 0B(N)<>-1 THEN PRINT "A(JUI NO VEO 
TAL COSA.":GOTO 1080 

10001 IF N=9 THEN PRINT "PARA ESTO HACEN FALTA COMO 
MINIMO":PRINT "OOS HOMBRES.":GOTO 1080 

10002 IF N=14 AND JUGAD0R=5 THEN PRINT "LAS CUERDAS ESTAN 
CORTADAS.":FL(1)=-l:GOTO 1080 

10003 IF N=31 THEN PRINT "O.K.- LLEVO LA 
ARMADURA.":0B(31)=-l:GOTO 1080 

10990 GOSUB 600:G0T0 1080 

11000 IF N=5 AND JUGAD0R=24 AND 0B(5)=-1 THEN PRINT 
"0.K.":0B(5)=0:0B(41)=-1:GOTO 1080 

11001 IF N=5 AND JUGAD0R<>24 AND 0B(5)=-1 THEN PRINT "CON 
(JUE?":GOTO 1080 

>11990 GOSUB 600:GOTO 1080 


12000 

IF 

0B(N)<>-1 

THEN 1 

GOTO 

12001 

IF 

N=4 THEN PRINT 

'•O.K.' 

12002 

IF 

N=5 THEN PRINT 

"O.K.' 

12003 

IF 

N=7 THEN 1 

PRINT 

"O.K.' 

12004 

IF 

N=12 THEN 

PRINT 

"O.K 

12005 

IF 

N=15 THEN 

PRINT 

”0.K 

12006 

IF 

N=16 THEN 

PRINT 

»'0.K 

12007 

IF 

N=14 THEN 

PRINT 

"O.K 

12008 

IF 

N=30 THEN 

PRINT 

**0.K 

12009 

IF 

N=41 THEN 

PRINT 

”0,K 
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12010 

IF 

N=45 

THEN 

PRINT 

"O.K.” 

OB(N)=JUGADOR:GOTO 

1080 

12011 

IF 

N=40 

THEN 

PRINT 

”0-K.” 

06(N)=JUGADOR:GOTO 

1080 

12012 

IF 

N=36 

THEN 

PRINT 

"O.K.” 

OB(N)=JUGADOR:GOTO 

1080 

12013 

IF 

N=35 

THEN 

PRINT 

”0.K.” 

OB<N)=JUGADOR:GOTO 

1080 

12014 

IF 

N=31 

THEN 

PRINT 

”0.K,” 

OB(N)=JUGADOR:GOTO 

1080 

12900 

IF 

N=5 AND 0B(41 )=- 

-1 THEN 

PRINT 



"0,K.":0B(41)=JUGADOR:GOTO 1080 
12901 IF N=16 AND 0B(34)=-1 THEN PRINT 
"O.K.":OB(34)=JUGADOR:GOTO 1080 
12990 GOSUB 600:G0T0 1080 

13000 IF OB(30)=-1 THEN 0B(30) =20:GOSUB 606:.RETURN 
13010 IF OB(35)=-l THEN 0B(35)=20:G0SUB 606:RETURN 
13020 IF 0B(5)=-1 THEN 0B(5)=20:G0SUB 606:RETURN 
13090 RETURN 

14000 IF OB(34)<>25 THEN RETURN 
14010 IF OB(35)<>25 THEN RETURN 
14020 IF 08(41)025 THEN RETURN 
14030 IF OB(40)<>25 THEN RETURN 

14100 GRAPHICS 0:SETC0LOR 2,1,0:SETC0L0R 4,1,0:PRINT "SE OYE 
UNA V02:":PRINT :PR1NT :PRINT 

14110 PRINT "EL GRAN HUMB SE ALEGRA DE TUS DONES.":PRINT 
14120 PRINT "HARA SERVIR SUS PODERES MAGICOS":PRINT :PRINT 
"PARA AYUDARTE.";PRINT 

14130 PRINT :PRINT "VE A CASA AHORA PORQUE YA ESTAN":PRINT 
:PRINT "PREPARANDO UNA FIESTA, PARA CELEBRAR":PRINT 
14140 PRINT "EL DESPERTAR DEL LARGO":PRINT :PRINT "SUENYO." 
14150 GOTO 14150 
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15000 IF 0B(30)=-1 THEN 0B(30)=2O:GOSUB 606:RETURN 
15010 IF OB(35)=-1 THEN 0B(35)=20:G0SUB 606iRETURN 
15020 IF 0B(5)=-1 THEN 0B(5)=20;GOSUB 6 O 61 RETURN 
15030 RETURN 

15100 IF 06(31)01 THEN RETURN 

15110 MO$="PESO DEMASIADO Y ME HUNDO !’':GOTO 4500 

15200 IF RND(1)>0.3 THEN RETURN 

15210 MO$="HE (>MDO EN UNA TRAMPA.":GOTO 4500 

16000 IF N=10 AND JUGAD0R=8 THEN PRINT "NO LO LOGRO !":GOTO 

1080 

16010 IF N=ll AND JUGAD0R=8 THEN PRINT "NO LO LOGRO !";GOTO 
1080 

16020 GOSUB 600:GOT0 1080 
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FIEBRE DEL ORO 


Este Juego de aventuras ya no precisa de más referencias. 
No obstante, aquT se trata de la versión completa. La 
aventura comenzará realmente, cuando usted haya sido capaz 
de abandonar el territorio conocido hasta ahora. 

Entonces entrará en el mundo oscuro de unas viejas minas 
de oro, y se decidirá, si desea probar una Idea espontánea, 
perdiendo con ello un tiempo precioso, medido aquí por la 
duración del encendido de una lámpara, o si prefiere 
asegurarse y realizar solamente aquellas acciones que están 
Justificadas por largas reflexiones. 
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1 RFM KItBRF DtL ÜRÚ. VERSION l.U;ttlttR 
1 

2 Rtn (C) WrtLKÜWIrtK, ÚCIURRE lSt)4 

3 REN- 

10 BRARHIC3 Ü:SE1CÜLÜR 2,1,O:SElCOLOR 
4,l,0:FOR Í=1 Tü 9:PRíNr iNEXT í 
20 PRINT “ 

• i 

30 PRINI •• FIEBRE ÜEL U 

R Ü" 

40 PRINT •• 

II 

6>0 PRINT •• VERSION 1.0 

PRINT 

70 PRlNl " (C) 1984 BY WALKÜWIAK 

•• . 

80 FÜR 1=1 TÜ 3000 
90 NEXT I 

lOO REM »»**»»»»» DATOS DE LA AVENTURA 
1 lo AR=3l: A0=-44; AF=7: JUGADOR=l: WMAX=ÓO 
:VALÜRAC1ÜN=0:J U6ADA=0:IMAX=4:LM=0;L1 = 
-1 :l.W=1:L1=20 

150 DIM LU5AR»{40) ,PASADA(AR,6) ,DlREi:C 

ION»(36),ENTRADA»(20),r»(40),Üb(AO),BL 

ANCOS» (38) ,DZ»(50) , 2bNl)E»(3) ,FL(AK) 

160 DIM VERB03»(130),EVERb0»(2o),EÜBJE 

T0»(20),OBJETOS»(180),MO»(40),M1»(30), 

M2»(30),M3»(30),M4»(38),M5»(38) 

170 VERBOS»="EXAMINA COGE PON 

ABRE UTILIZA DESTRUYE ENC 

lENDE LLENA ENTRA APAGA 

1/1 VERBOS» (LEN(VERBOS») )-l) ="SUJEÍA 
11 

180 ÜBJETOS»="ARBUARBÜRÜCACABABOTEMIEL 
CAJAESTAEXPLAGUJARCARLAICUEVÜSÜ ARBUBA 
RRPFP1BARRVALORA1L CUERP J COFAROF1NA" 

181 OBJ ET US»(LEN(ÜbJ ETÜS»)+1)=“GANCPO Z 
I )TAHL CASCSACUMURUL1QUCADA TERRMONE TELAR 
ARERÜTUÜRÜ ORILLAGUPIEDMECHENCERARA“ 
190 GOTO 600 
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200 RtM »»***»* DESCRIPCIONES DE LUbAR 

201 PRÍNT “EN EL BOSQUE.RETUHN 

202 PRINT "EN EL BOSQUE.RETURN 

203 PRINT "EN EL BOSQUE DELANTE DE UN 
DESPEÑADERO“:RE TURN 

204 PRINT "EN UN CLARO.RETURN 

205 PRINT "EN UN CLARO.":RETURN 

206 PRINT “EN LA BOCA DE ENTRADA A";PR 
INI "UNA VIEJA MINA.“:RE1UKN 

207 PRINT “EN LA BOCA DE EN IRADA.RET 
URN 

208 PRINT “EN UN HUECO DE LA CALERIA." 
:RE rURN 

2<>9 PRINT "AL FINAL DE LA CALERIA. “:RE 
TURN 

210 PRINT “EN UNA CALERIA LATERAL.“;RE 
TURN 

211 PRINT “EN UNA VIEJA CALERIA DE EXT 
RACCION.";RET URN 

212 PRINT "EN LA CUEVA.“:RETURN 

213 PRINT “EN LA CUEVA.“:RETURN 

214 PRINT “EN LA CUEVA.“:RETURN 

215 PRINT “EN LA CUEVAREÍURN 
236 PRINT "EN UNA CALERIA.“:RETURN 

217 PRINT “EN UNA CUEVA LHFERAL.RETU 
RN 

218 PRINT “EN EL FUNDO DEL POZÚ.“:RETU 
RN 

219 PRINT “EN UNA CALERIA SERPENTEADA. 
":RETURN 

220 PRINT “EN UNA CALERIA ANCHA.RElU 
RN 

221 PRINT “EN UNA VIEJA CALERIA DE EXT 
RACCION.“:RETURN 

222 PRINT "EN UNA MULE DE PIEDRA.";RET 
URN 

223 PRINl “EN UN PARAISO":PRINT "SUBTE 
RRANEO.":RETURN 

224 PRINT "EN UNA CALERIA SERPENTEADA. 
*: RETURN 
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225 PRINT "EN UNA CALERIA SERPbNTEADA. 
“:RETURN 

226 PRINT “EN UNA CALERIA SERPENTEADA. 
“:RETURN 


227 PRINT 


"EN UNA CALERIA SERPENTEADA. 


“:RETURN 

22S PRINT "EN UNA CALERIA SERPENTEADA. 
RETURN 

229 PRINT “EN UNA CALERIA SERPENTEADA. 
“:RETURN 

230 PRINT “DELANTE DE UN LAbÜ SUBTERRA 
NEO.“;RETURN 

231 PRINT "EN UNA PEQUEÑA CUEVA.“:RbTU 


RN 

300 REM *%*wtt**t**t*t**tt***t OBJETOS 


S 


301 T»="MUCHOS ARBOLES CHANDES";RETURN 


302 T*="MUCHOS ARBOLES CHANDES":RETURN 

303 T«="ALCUNAS ROCAS":RETURN 

304 r»="UNA CABANA DE MADERA EN RUINAS 
“:RET URN 

305 T»=“UNA SUCIA BOTELLA FORRADA":RET 
URN 

306 T»=“M1EL“;RETURN 

307 T»="UNA CAJA DE MADERA":RETURN 

308 T*="UNA ESTANTERIA DESVENCIJADA":R 
ETURN 

309 T*=“UN PUCO DE EXPLÜSIV0“:RETURN 

310 TS="UN ACUJERÜ OSCURO";RETURN 

311 T-t-^-LINA OXIDADA ARCA DE HlERRü":RE 
rURN 

312 T*=")|[M0NEDAS de PLATA» RET URN 

313 r*=“UNA CUEVA OSCURA";RETURN 

314 1»="UN USO FEROZ":RETURN 
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^ ¿ ^ C‘4 C'' Ój í.-'í C'í Cn Ij.m Oí fv te W í*0 Ñi fv hO ^J fO ^ 

4: t'j w ►- c ■ 4 :' ce Nj 0" en -fc c--' r--' >- o «o oe vi en en -t» oí te ^ c .0 00 


¿Tib r*=^*‘«KBUSriJS B«JOS“:KETUKN 

316 l*-''V«K lAb B«KK«S DE HltKRÜ**: KEIUH 

N 

“17 T5 = “¥» t l J fMy Dt ÚKÚ» •íRElUKN 

r*-'‘»JN« BttRRtt DE HÍEKRtJ" :RETURN 
T»="ÜN'A VIEJA VAGONETA": REI ÜHN 
r »- •' RAI LES Ü X1 DADOS “ : RE T URN 
Tí-‘‘UNA CUERDA" :RETURN 
T»=“uN pico PESADO":re 7URN 
1»="UN VIEJO rARÜL**:RETURN 
TtP="EL FINAL DE I..A GAlERI A" : RETURN 

7* = "6ANI:hüS de HIERRO" :KETUKN 
T»="UN POZO":RETURN 
T»="UNA PARED DE 7ABLAS":RE7ÜKN 
r «="CASCU f ES“:RE r URN 
7í="S7lCÜS VIEJOS" :RETURN 
r»="MUROS DE PIEDRA HUMEDOS":RE IUR 

7 »="LiUU1 DO PES71LENTE":RE IURN 
r»-"UN CADAVER":RE7URN 
1»="»7ERRÜNES DE PLAl A»":RE7URN 
r*-=" «monedas de 0R0»":RETURN 
T$="7ELARANAS":REIURN 
rí="UNA PARED DE ÜRÜ":RETURN 
1f;=:"UN ROTULO" :RE7 URN 
r*="»ORU«“:RE7 URN 
T*="UNA ORILLA":REIURN 
r*="EL LAGO":REIURN 
1»="PIEDRAS DE ÜRÜ";RETURN 
r*="UNA MECHA":RETURN 
7t="UN ENCENDEDOR":RE7URN 
!«> = " RE Í URN 
'IOd RFM »*»* P'OSICIONES ÜBJE7ÜS *»»»* 
■mu DAIA 1,2, 2,3, U, O, 3, U, u,U, O, O, 5, U, 4 
,'á,5,0. 7,7,0,tí,S,V,U,9, lU, 11,0, 13, 17, 1 
8,0,0,20,22,22,3l,30,30,O,O,-1,O 
5«»0 Rt.h f»»»» TABLA DE DIRECCIONES »» 
t>01 DATA 1, 1, 1,2,0,0, 2, 1 , 1,3,0,0, O, 4,2 
, 0,0,0, 3, O, tj, 0,0,0, O, 0,6, 4, 0,0, 7, O, 1 , b 
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,0,0,a,6,O,O,O,O,9,7,8,10,0,0 

502 DATA O, 8,O,O, O,O, 11,0,8,0,0,0,0,1O 
,0,0,O.O,O,5,O,13,0,0,0,0,12,14,0,0,0, 
16,13,15,0,0,0,0,14,0,0,0 

503 DATA 14,0,0,17,0,0,0,0,16,0,0,0,0, 
O,19,0,0,0,24,0,20,18,0,0,0,0,21,19,0, 
0,22,11,11,20,11,0,0,21,0,0,27,0 

504 DAIA 0,0,0,0,0,0,26,19,24,24,24,24 
,27,24,24,29,26,24,27,24,26,27,27,24,2 
5,24,26,27,26,24,24,26,26,27,O,O 

505 DAÍA 0,27,30,27,0,0,28,0,0,0,0,0,3 
O, O, o. O, O, O 

600 REM *«»»***»«*»»»*»»*»»»» MENSAJES 

601 M1»="N0 VEU NADA ESPECIAL." 

602 M2m="NÜ TENGÜ TANTA FUER/A !" 

603 M3*="CUMU TE LU IMAGINAS ?" 

604 M4í="EL OSÜ COGE LA MIEL Y DESAPAK 
ECE EN" 

605 M5*="EL FUNDO DE LA CUEVA." 

699 REM »»**»»» TÍTULO 2: INTRUDUCCIÜN 

700 GRAPHICS 0:S£7C0LÜR 2,1,O:SETCÜLÜR 
4,1,0 

710 PR1N7 "BIENVENIDO A: FIEBRE DEL ÜK 
0“:PRINT "UNA AVENTURA PARA ATARÍ BOO 
XL":? 

720 FÚR 1=1 TÜ 37:PR1NT CHR»(13);:NEXT 
I:PRINT 

730 PRINT "Hace unos Oías, y mientras 
probaba";PRíNT "suerte en un mundo nue 
vo, Ucl encoritro" 

740 PRINT "a un viejo moribundo, al qu 
e atendí o":PRINT "en las ultimas horas 
de su vida." 

750 PRINT "Agradecido por el acto, el 
viejo le“:PRlNr “hablo de una mina de 
oro que poseía" 

760 PRINT "y de parte de 1 a Tortuna qu 
e alli";PRINT "tema escondida." 

770 PRINT "Ud. he superado in+inidad d 
e peíiqros":PRINT "hasta dar con ella; 
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pronto alci^nsara" 

78o PHÍNT “su objetivo y podra comprob 
ar, SI lo";PRlNT "que el viejo decía e 
ra cierto o si “ 

785 PRINT "solo se trataba de un sueno 
delirante"zPRÍNT 

790 POR 1=1 TO 37:PRIN1 CMR*(13);:NtXI 
I:PRINT 

795 PRINT "DEStP RECIBIR CONSEJOS PAKP 
CONTINUAR";:INPUr ENIRAÜA* 

798 IF ENTRADA»(1,1)="S" THFN GOSÜB 80 
O 

799 GOTO 900 

800 GRAPHICS O:SET COLOR 2,1,O;SETLÜLÜR 
4,1,0 

820 PRINT " ATARI - VENTURES 

"zPRINf " (C) 1984 BY JO 

ERG WALKÜWIAK ":REM INVERB 

830 PRINT :PRINT "Imagínese un robot a 
1 que puede":PRINT "controlar con nume 
rosos comandos,“ 

840 PRINT "Yo soy este robot y me pond 
re en su":PRINf "lugar para en+rentarm 
e a todos los" 

850 PRINT "peligros de las mas excitan 
tes";PRINT "aventuras." 

855 PRINT "Para que pueda manejarme co 
modamente,":PRINT "le describiré en ca 
da momento la" 

8fe0 PRINT "situación en que me encuent 
re.":PRINT "A continuación, Ud me indi 
ca con dos" 

883 PRINT "palabras, como por ejemplo, 
":PRINT “EXAMINA PUERTA, COGE CUCHILLO 

II 

9 

870 PRINT "lo que yo deba hacer.":PR1N 
T "Ademas entiendo las ordenes:":PRlNf 

880 PRINT " INSTRUC, AYUDA, VUCAB, 
":PRINT 
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881 PRINT " PUNTOS, INVENT, SAVE, Lü 
AD, FIN":PRINT 

890 PRINT "POR FAVOR, PULSE <RETURN> Y 

_";:INPUT ENTRADA»:GRAPHICS O:RETUR 

N :REM INVERS 
900 FOR 1=1 TÜ AO 

910 READ PARADER0:0B<1)=PARADER0 
920 NEXT I 

930 FOR 1=1 TO AF:FL(I)=0:NEXT 1 
940 FOR LUGAR=1 TO AR 
950 FOR D1RECC10N=1 TO 6 

960 READ META:PASADA!LUGAR,DIRECCIÜN>= 
META 

970 NEXT DIRECCION 
980 NEXT LUGAR 

lOOO GRAPHICS OzSETCOLOR 2,1,0:SET COLO 
R 4,1,0:TRAP 1080:GOTO 1020 

1010 REM **»» TEXTO CLARO: DIRECCIONES 

1011 T»="N (NORTE), "zRETURN 

1012 T»="S (SUR), "zRETURN 

1013 T»="0 (OESTE), "zRETURN 

1014 T»="E (ESTE), ":RETURN 

1015 T»="AR (ARRIBA), "zRETURN 

1016 T»="AB (ABAJO), ":RETURN 
1020 BLANC0S»=" 

II 

1030 T»="" 

1040 ZENDE»=CHR»(30):ZENDE»(LEN(ZENDE» 
)+1)=CHR»(30):ZENDE»(LEN(ZENDE»)+!)=“. 

•I 

1080 PRINT :JUGADA=JUGADA+1:LW=LW+1 

1084 IF LW=LM THEN GOSUB 3000 

1085 IF VALURAC10N=WMAX THEN GOTO 4800 

1090 FOR LINEA=0 TO lOzPOSITION 2,CINE 
A:PRINT BLANCOS»:NEXT LINEA 

1091 REM »*»*»»*»*»»»»*»**»*»» SIN LUZ 

1092 IF LI=-1 THEN IlOO 

1093 PRINT "NO SE EXACTAMENTE DONDE ES 
TOY.":PRINT "ES DEMASIADO OSCURO PARA 
VER ALGO." 
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1095 PRINI rPHlNT “TrtMPOUO PUEDO VER L 
AS BOCAS DE":PRINT "SALIDA !":GOTÜ 132 
O 

IlOO POSITION 2,0:PR1NT “ESTOY ";:GOSU 
B 200+JUGADOR 

lllO DZ»="VEO IMPRIMID0=0 
1120 FUR 1=1 TO AO 

1130 IF OB(I)OJUGADOR THEN GOTO 1170 
1140 IMPRIMfDO=-l:GOSUB 300+1; I»(LEN(T 
«)+!)=", “ 

1150 IF LEN(DZ$)+LEN<1*)>=38 1HEN PRIN 
T DZ*:0Z»=T»(1,LEN<r*>>:T»="":GUTO 117 
O 

1160 DZ*(LEN(DZ»)+1)=T*:1*=“" 

1170 NEXr 1 

1180 IF NOT IMPRIMIDO THEN DZ*tLEN(DZ 
S>+1)=’*NADA ESPECIAL." 

1190 DZ»(LEN(DZ»)+1)=ZENDE* 

1200 PRINT Ü¿% 

1210 PRINT BLANCOS* 

1220 DZ*=“PUEDÜ IR HACIA ":IMPRÍMIDÜ=0 
1230 FOR D1RECC10N=1 TO 6 
1240 IF PASADA<JUGAD0R,DIRECCI0N)=0 ÍH 
EN GOTO 1280 

1250 GOSUB lOlO+DIRECClON:IMPRIMIDO=-l 
1260 IF LEN(DZ»)+LEN(r*>>=3S THEN PRIN 
T DZ*:DZ*=T*a,LEN(T*)):T*=““:GOTO 128 
O 

1270 DZ*(LEN1DZ*)+1)=T*: 1*="" 

1280 NEXT DIRECCION 

1290 IF NOT IMPRIMIDO THEN DZ*ILEN<DZ 
*)+l)=“EN NINGUN Sino. " 

1300 DZ*(LENIDZ*)+1)=ZENDE* 

1310 PRINT DZ» 

1320 PRINT "RRRRRRRRRRRRRRRRRRRRRRRRRR 
RRRRRRRRRRR":REM 37 CONTROL R 
1340 IF VAL0RAC10N=WMAX THEN GOTO 4800 
1350 IF JUGAD0R=15 THEN MO»="DESGRACIA 
DAMENTE ALLI ESTABA EL OSO.":FOR 1=1 T 
O 600:NEXT I:GOTO 4500 
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)360 IF ! W<=0 THEN L1=0 

1370 n EX=JUGADA AND JUGADUR=20 THEN 
M0*="RUMS! - a mi TAMBIEN ME HA ÜESTRU 
ZADU";G0T0 4500 

1380 IF JUGADÚR>18 AND OB(23)<>-l THEN 
LI=0 

1390 POSITION 2,23:PRINT "QUE DEBO HAC 
ER ";;INPUT ENTRADA* 

1395 RL=LM-LW: IF (ROO AND KL< 15> THEN 
PRINT "EN" ;LM—LW;"MOVIMIENTOS ES f ARE 
A OSCURAS!“ 

1400 IF LEN(ENTRADA*)>2 THEN 1480 
1410 IF ENrRADA*="N“ AND PASADA (JUGADÍJ 
R, 1) <- >0 THEN JUGADOR=PASADA (JUGADOR, 1 ) 

;PRINT "VALE":GOFO 1080 

1420 IF ENTRADA*="S" AND PASADA(JUGADO 
R,2)<>0 THEN JUGADOR=PASADA(JUGADOR,2) 

;PRINT "VALE":GOTO 1080 

1430 IF ENTRADA*="0" AND PASADA(JUGADO 
R,3> í. >0 THEN JUGADOR=PASADA (JUGADOR, 3) 

:PRINT "VALE":GOTO 1080 

1440 IF ENTRADA*=“E“ AND PASADA(JUGADO 
R,4><^>0 THEN JUGADOR=PASADA(JUGADOR, 4í 
:PRINT “VALE":GOTO 1080 

1450 IF ENTRADA*=“AR" AND PASADA(JUGAD 
0R,5)<>0 THEN JUGADOR-PASADA(JUGADOR,5 
):PRIN T "VALE":GO T 0 1080 

1460 IF ENTRADA*=“AB" AND PASADA(JUGAD 
OH, 6) 00 THEN JUGADOR=PASADA (JUGADOR, 6 
):PR1NT "VALE“:GOTO 1OBO 

1470 IF LEN(ENTRADA*3 IHEN PRINT “HA 
CIA ALLI NO CONDUCE NINGUN CAMINO'":G0 
rO 1080 

1480 IF LEN(ENTRADA*)>8 THEN GOTO 2oOO 

1499 REM COMIENZO INVENTARIO 

1500 1F ENTRADA*(1,3)< >"INV" THEN GOlO 
1560 

1510 FRINT “LLEVO CONMIGO LO SIGUIENIL 
: 

lt52<> KÜR 1 = 1 10 AÜ 
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1530 IF OB<I)=-l THEN GOSUB 300+I:PRíN 
T T» 

1540 NEXT I 

1550 GOTO 1080 

1551 REM »»»»»*»»»*»»»» FIN INVENIARIU 

1560 IF ENTRADA*(l,3í <>“PUN*‘ THEN GOTO 
1600 

1561 PRINT "DE “;NMAX;“ PUNTOS HAS OBT 
ENIDO VALORACION;:PRINT " PUNTOS EN 

";JUGADA;“ JUGADAS!" 

1563 PRINT "ESTO ES, UNA MEDIA DE ";VA 
LOR/JU6ADA;" PUNTOSGOTO 1080 

1599 REM »#**»*»*»»»»»*»»»» SAVE GAME 

1600 IF ENTRADA$a,3)<>“SAV‘ THEN GOTO 
1700 

1605 PRINT "CON QUE NOMBRE ";:INPUT EN 
TRAOA»:IF LEN(ENTRADAS)>8 THEN PRINT " 
UN OCO MAS CORTO, POR FAVOR'":GOTO 160 
5 

1610 T*=”D:”:ENTRADAS(LEN(ENTRADA*)+1) 
DAT” 

1615 T*<LEN<T*)+l)=ENTRADA* 

1620 OREN #1,8,0,T» 

1625 PRINT #1,JUGADOR 

1630 FOR 1=1 TO AO 

1631 PRINT #l,OB(l> 

1632 NEXT I 

1635 FOR LUGAR=1 TO AR 

1636 FOR DIRECCI0N=1 TO 6 

1637 PRINT #1,PASADA(LUGAR,DIRECCION) 

1638 NEXT DIRECCION 

1639 NEXT LUGAR 

1645 FOR L=1 TO AF 

1646 PRINT #1,FL<I) 

1647 NEXT I 
1650 CLÜSE #1 

1670 PRINT "VALE":GOTO 1080 

1699 REM *»**»»*»*»*»*»»*»» LOAD GAME 

1700 IF ENTRADA* (1,3 )<;.>" LOA" THEN GOTO 
1800 
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1705 PRINT "QUE JUEGO ";:1NPUT ENTRADA 
*:IF LEN(ENTRADA*)>8 THEN PRINT "ESTE 
NO PUEDE EX1B1IR*“:00T0 1705 
1710 T*="D:":ENTRADA*(LEN(ENTRADA*)+1) 
=".DAT” 

1715 T*(LEN(T*)+1)=ENTRADA* 

1720 OPEN #1,4,0,T* 

1725 INPUT #1,JUGADOR 

1730 FOR 1=1 TO AO 

1731 INPUT #1,PARADERU:ÜB(I>=PARADER0 

1732 NEXT I 

1735 FOR LUGAR=1 TO AR 

1736 FOR DIRECCI0N=1 TO 6 

1737 INPUT #1,META:PASADA(LUGAR,DIRECC 
ION)=META 

1738 NEXT DIRECCION 
1/39 NEXT LUGAR 

1745 FOR 1=1 TO AF 

1746 INPUT #1,FLAG:FL(I)=FLAG 

1747 NEXT 1 
1750 CLOSE #1 

1770 PRINT "VALE":GOTO 1080 
1800 IF ENTRADA*(1,3)<>"V0C" THEN GOTO 
1900 

1810 GOSUB 1880:IMPRIMIDO=0 

1830 FOR 1=1 TO LEN(VERBOS*) STEP lO 

1840 PRINT VERBOS* (I,1+9):IMPRIMIDÜ-IM 

PRIMIDO+1 , 

1850 IF IMPR1MID0=18 THEN GOSUB 1890:I 
MPRIM1D0=1:GOSUB 1880 
1860 NEXT I 

1870 GOSUB 1890:GRAPHICS 0:SE1C0L0R 2, 
1,0:SETCOLOR 4,1,0:G0T0 1080 
1880 GRAPHICS 0:SETCÜLOR 2,1,O:SblCOLO 
R 4,1,0:PRINT "CONOZCO LAS ACCIONES SI 
GUIENTES PRINT :RETURN 

1890 PRINT :PRINT :PRINT "PULSAR <RETU 
RN> INPUT ENTRADA*:RETURN - 

1900 IF ENTRADA*(1,3)<>"INS" THEN GOTO 
1950 
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1910 60*30 B 800 
1920 60T0 1080 

1950 IK ENTRADA* <1,3) <>’‘F1N" TREN GOTO 
1970 

1960 GRAPHICS OrPRINT “El. AUTOR LE DES 
EA MAS SUERTE EN UN*‘:PRINT “EN UN PRÜX 
IMO INTENTO!“:PR1NT rPRINT rPRlNT :END 

1970 IF ENTRADA»(1,3)O"AYU“ IHEN GOIÜ 
2000 

1971 IF JUGAD0R=4 AND 0B(10)=0 THEN PR 
INT "CASI ME HUBIERA CAIDO EN UN FOSO" 
:GOTO 1080 

1972 IF JUGADÜR=4 AND OB<11)OJUGADOR 
AND NOT FL(2) THEN PRINT “NECESITO AL 
GO PARA ROMPER LA CADENA":GOTO 1080 
1975 PRINT "PRIMERO MIRAR , DESPUES PE 
NSAR Y AL":PRINT “FINAL ACTUAR !!":GOT 
O 1080 

1979 REM »»**»**»»»*»»»*»*»»* FIN HELP 

1999 REM »**»»»*«»#»»» SEPARAR ENTRADA 

2000 LN=LEN(ENTRADA») 

2010 FOR 1=1 TO LN 

2020 IF ENTRADA» (I, 1)0“ “ THEN NEXl 1 
2030 EVERBO»=ENTRADA»(1,1) 

2040 IF LEN<EVERBÜ»)=LN-1 THEN GOTO 20 
90 

2050 EOBJETO»=ENTRADA»(1+1,LN) 

2060 VN=0:N=0 

2070 EVERBO»=EVERBO»(1,3) 

2080 EOBJETO»=EOBJE rO»(1,3) 

2090 FOR 1=1 TO LEN(VERBOS»)-2 STEP 10 
2100 VN=VN+1 

2110 IF VERBOS»<I,1+2)=EVERBO» THEN 2l 
40 

2120 NEXT 1 

2130 PRINT “NO ENTIENDO EL VERBO!“:GOT 
O 1080 

2140 FOR 1=1 TO LEN(OBJETOS») STEP 4 
2150 N=N+1 
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2160 IF OBJETOS» (1,1+2)=£UBJE1O» THEN 
GOTO 2200 
2170 NEXT 1 

2180 PRINT “NO ENTIENDO EL 0BJE1Ü!“:GU 
TO 1080 

2190 REM INS COG PON ABRUT1 D 
ES 

22«»0 ON VN GOTO SOOO, 2210, 7OO0,8000,90 
00,10000,11000,12000,13000,1400O,15000 

2209 REM ***»»*»*» LIMITAR INVENTARIO 

2210 ANZ=O:F0R 1=1 TO AO 

2220 IF 0B(1)=-1 THEN ANZ=ANZ+1 
2230 IF ANZ=1MAX THEN PRINT “NO GRACIA 
S.- YA LLEVO BASTANTE CARGA.";Gülü 108 
O 

2240 NEXl I 
2250 GOTO ájOOO 

2260 REM »»»»*»»*»»»**»»* EIN INVTESl 

2999 REM »»»»»»»»*»»*» UP INTERRUPTOR 

3000 IF Ll=-1 THEN Ll=0:GÜT0 3020 
3010 IF Ll=0 THEN LI=-1 

3020 LW=0:RETURN 

4500 GRAPHICS O:REM »»» JUGADOR MUERTO 
4600 PRINT “LO QUE FALTABAí“:PRINT :PR 
INT MO» 

^610 PRINT :PR1NT "ESTOY MUERTO!“:PRIN 
T 

4620 PRINT “QUIERE QUE LO INTENTE OIRA 
VEZ ";:INPUT ENTRADA» 

4630 IF ENTRADA»(1,1)="S“ THEN CLR :Gü 
TO loo 

4640 GOTO 1960 

4800 GRAPHICS O 

4810 PRINT "ENHORABUENA!" 

4820 PRINT :PRINT :PRINT "HA RESUELTO 
EL PROBLEMA PLANTEADO":PRINT 
4830 PRINT “Y PUEDE AFRONTAR UNA NUEVA 
AVENTURA." 

4840 PRINT :PRINT :PRINT :END 

4900 PRINT “ATENCION ERROR!“:GOTO 1080 
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499V REM »»eJECUTrtR MOVIMIENTOS JUbADO 
R 

bOOO IF ÜB(N)<;>JUbADOR AND Ob<N)<>-l T 
HEN GOTO 5900 

5002 IF N=1 THEN FRINI Ml»:bOTÚ 1080 

5003 IF N=3 THEN PRINT Ml»:bürO lOBu 

5004 IF N=4 THEN PRINT "EN UN RINCON H 

AY UNA ESTANTERIA."zÜB(8)=JU&ADOR:bOÍÜ 

1080 

5005 IF N=5 THEN PRINT "LA BOTELLA EST 
A LLENA DE MIEL.":faOTU lUBO 

5006 IF N=6 THEN PRINT Ml»:büTO lOBO 

5007 IF N=7 AND OB(9)=0 THEN PRINT "EN 
LA CAJA HAY EXPL.ÜSl VOS. " : bOTO l08O 

5008 IF N=B AND 0B(5>=O THEN PHINI "EN 
LA ESTANTERIA HAY UNA BOTELLA":PRINT 

"FORRADA. ":Ob(5)=JU&ADÜR:GOTfJ lOBO 

5009 IF N=8 AND 0B(5)<>0 THEN PRINT Mi 
»:G0T0 lOBO 

5010 IF N=10 THEN PRINT "EN EL AGUJERO 
HAY UN ARCA DE HIERRO.":OB(11)=JUGADÜ 

R:GOTO 1080 

5011 IF N=ll AND NOT FL<1) THEN PRINT 
"ESTA CERRADA CON UNA CADENA.GOTO 1 

080 

5012 IF N=ll AND FU 1) AND NÜT FL(2) 
THEN PRINT "POR FUERA NO VEO NADA ESPE 
CIAL.":GOTO 1080 

5013 IF N=ll AND FUI) AND FL(2) AND O 
B(12)=0 THEN PRINT “ESTA LLENA DE MONE 
DAS DE PLATA.";0B(12)=JUGADOR:GOTO 108 
O 

5014 IF N=12 THEN PRINT "ES JUSTO LO Q 
UE BUSCABA!!":GOTO 1080 

5015 IF N=13 THEN PRINT “HE ASUSTADO A 
UN OSO.":0B(14)=JUGAD0R:G0T0 1080 

5017 IF N=15 THEN PRINT "EN MEDIO HAY 
UN AGUJERO.":0B<10)=JUGaDOR:GOTO 1080 

5018 IF N=16 THEN PRINT "PARECEN SER M 
UY RESISTENTES.GOTO 1080 
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5019 IF N=17 THEN PRINT “SE TRATA DE O 
RÜ PURO!":GOTO 1080 

5020 IF N=19 AND 0Bt2l)=0 THEN PRINT " 
TODAVIA PENDE LA CUERDA DE riR0.":ÜBl2 
1)=J UbADOR:GOTO 1080 

5021 IF N=23 THEN PRINT "ES UNA VIEJA 
LAMPARA DE ACE1TE":GUT0 1080 

5022 IF N=24 THEN PRINT "SALE UN GANCH 
O DE LA pared.":OB125)=JUGADOR:GOTO 10 
80 

5023 IF N=25 THEN PRINT "LO SIENTO - E 
STA COGIDO MUY FUERTE.60íO 1080 

5024 IF N=26 THEN MO*=“EB MUY HUNDO - 
Y YO ESTABA DEMASIADO CERCA DEL BORDE 
.":GOTO 4500 

5025 IF N=27 THEN PRINT "SU CARPINTERO 
ERA UN ARTISTA.":GOFO 1080 

5026 IF N=28 AND OB(N)=0 THEN PRINT "H 
E DESCUBIERTO DOS SACOS.OB(29)=JUGAD 
ORiGOTO 1080 

5027 IF N=29 THEN PRINT “ESTAN LLENOS 
DE ORO EN POLVO.":GOTO 1080 

5028 IF N=31 THEN PRINT “ES VISCOSA, O 
LEOSA Y SE PEGA EN LOS":PRINT “DEDOS." 
:GOTO 1080 

5029 IF N=32 THEN PRINT "APESTA!" 

5030 IF N=32 AND OB(34)=0 THEN PRINT 
EN EL BOLSILLO HAY MONEDAS DE ORO.":ÜB 
(34)=JUGADOR:GO f O 1080 

5031 IF N=35 THEN PRINT “NO SON TELARA 
ÑAS.":OB(N)= 0 :OB( 42 )=JUGADOR 

5032 TF N=35 THEN PRINT "ES UNA MECTHA. 
“:GOTO 1080 

5033 IF N=36 THEN PRINT "REALMENTE ES- 
ORO PURO.":GOTO 1080 

5034 IF N=37 THEN PRINT "LLEVA ESCRITO 
:";PRINT "UNA VEZ DESPIERTA LA CODICIA 
,":? "TAMBIEN LA MUERTE SE BENEFICIA" , 

5035 IF N=37 THEN GOTO 1080 

5036 IF N=42 THEN PRINT "CONDUCE HACIA 
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El T echo . ••: GOT Ü 1 o8u 

5037 IF N=43 THF^4 FRINT "ES UN TIPO üE 
ENCENDEDÜFí HAEITUAL EN";PRINT "EL OES 

TE. " 

5038 IF N=32 AND FL<4) AND ÜB<33)<>-2 
THEN PRINT "ESTABA ENCIMA DE UNOS TRÜ/ 
ÜS DE PLATA";ÜB(33)=JUGADOR:60TO 1080 

5899 PRINT rH»:60T0 1080 

5900 REM »»»»»»»»»» OBJETO NO PRESENIE 

5901 IF N=1 AND JU6ADÜR=2 THEN PRINT M 
lí:6m0 1080 

5902 IF N-6 AND ÜB(5)=-1 THEN PRINI "E 
S DULCE Y SABROSA.GOTO 1080 

5903 ir N=¿» and 0Bt5)'>-l THEN PRINT " 
NO TENGO MIEL!":GOTO 1080 

5904 IF (N=9 AND <OB(7)=JUGADOP ÚR ÜB< 
7j=- 1)> THEN PRINT "PARECE SER MUY EXP 
LOSIVO!";GÜT ü 1080 

5910 [F N=14 AND JUGAD0R=5 AND 0B(14)= 
5 THEN PRINT "PARECE QUE VO DESPIERTE 
SU API;* TIT O. " : GOT O 1080 

5911 IF N=20 AND JU6AD0R=22 THEN ? "UN 
A VEZ DESPIERTA LA CODICIA,":? "TAMBIE 
N LA MUERTE SE BENEFICIA.“:GOTO 1080 

5912 IF N=44 AND JUGADOR=23 THEN MO$:-" 
ESTOY EN EL REINO DE LOS MUERTOS.":GOT 
O 4500 

5990 PRINT "AQUI NO VEO NADA PARECIDO! 
";GOro 1080 

8000 IF OB (NI O JUGADOR AND OB(N)<. >-l 1 
HEN GOTO 8900 


8(301 

IF 

N=1 

THEN 

PRINT 

M2»:G010 

1(380 

8(3(32 

IF 

N=3 

THEN 

PRINT 

M2»:GOrO 

108(3 

8(3(33 

íF 

N=4 

THEN 

PRINT 

M3»:GOTO 

1(J8(3 

80(34 

ÍF 

N=S 

THEN 

PRINT 

M2»:G0T0 

108(3 

8005 

IF 

N=11 

THEN 

PRINT 

M2»:G010 

1(38(3 

8008 

IF 

N=l(3 

THEN 

PRINT 

M3»:GOTO 

1080 

8007 

IF 

N=13 

THEN 

PRINT 

M3*:G0T0 

1080 

8(3(38 

ÍF 

N=15 

THEN 

PRINT 

M2*:&ÜTÜ 

1080 

8010 

IF 

N=5 

THEN 

ÜB(5)= 

-1:PRINT 

"VALE 
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:GOTO 1080 

8011 IF N=8 THEN OB(5)=-l:PRINT "VALE" 
:GOTO 1080 

8012 IF N=7 THEN OB(7)=-l:PRlNl "VALE" 
:GOTO 1080 

8014 IF N=12 THEN OB(12)=-2:PRINT "VAL 
E“:VALORACiÜN=VALORACiÜN+ 10:GO f O 1080 

8015 IF N=1 AND JUGADÜR=5 IHEN MO»="LL 
OSO ME HA MATADÜ.":&OfÜ 4500 

8018 IF N=18 THEN OB(IB)=-1:PRINT "VAL 
E":GOTO 1080 

8017 IF N=l7 AND FL(3) THEN PRlNl “O.K 
. " : 08 < 17 > =-2: VALORAC íON=VALORAC 1ON-»-10: 
GOTO 1080 

8018 lE N=l7 AND NÜT EL(3) THEN M0»-“ 
UN OSO SE LANZA SOBRE Mí.":GOFO 4500 
£>019 lE N=12 AND ÚB(N)=-2 THEN PRINT " 
VA TENGO LA PLA FA.":GO10 1OSO 

8020 IF N=l7 AND ÜB(N)=-2 THEN PRINT 
YA TENGO EL ORO.":GOTO 1080 

8021 IF N=19 THEN PRINT M2^;GOTO lo80 

8022 IF N=21 AND EL(4) THEN PRINF "VAL 
E":OB(N)=-l:GOTO 1080 

6023 IF N-22 THEN PRINf “VALE":0B<N)=- 
IrGOTO 1080 

8(324 IF N=24 THEN F-RINT "VALE" : UB (N)— 
l:GOTO 1(380 

8(325 IF N=25 THEN PRINT "ESTA CLAVADO 
DEMASIADO FUERTE EN LA":PRINT "ROCA.": 
GOTO 1(38(3 

6028 IF N=27 THEN PRINT M3»;G0T0 l08(3 
8027 ÍF N=28 IHEN PRINT "Y QUE HAGO fJÜ 
N ESTO?":GOTO 1080 

8030 IF N=31 AND 0Bl5)<>-l THEN PRINT 
"CON QUE?";GOTO 1080 

8031 IF N=3l AND OB(5)=-l THEN PRINI 
O.K. - LA B01ELLA ESTA LLbNA.":l-L(8)=- 
IzGÜTO 108(3 

8032 IF N=32 IHEN PRINT "VALE - OH, QÜ 
E ES ESTrj?":FL(5)=-l:G0r0 1(380 
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É>033 IF N=33 AND OB <N) =JU&AÜOR 1HEN PK 
í NT VALE : Ob (N) =-2: VALÜRACI ON=VALOF<AC 
]ON+1O:GOT0 1080 

6034 IF N=34 AND OB«N)=JU&ADOR THEN PR 
INT "VALE":ÜB(N> =-2:VALÜRAC1ÜN=VALORAC 
lüN+lO:GOT0 1080 


6035 IF N=35 
ÑAS, ERA UNA 
:GÜ10 1080 

6037 IF N=37 
l:GCJTO 1080 

6038 IF N=41 


1HEN PRIN1 "NO SON 1 ELARA 
MECHA.":OB <N)=0:OB <42)=-l 

THEN PKlNl "VALE":OBIN)=- 

THEN PR1N1 *‘VALE“:OBlN)=“ 


1:60T0 1080 

6039 IF N=42 1HEN PRINT “VALE":OB(N)=- 

Ir GOTO 1080 ' 

6040 IF N=43 THEN PRINT "VALE":OB(N)=- 


IrGÜfO 1080 

6041 IF N=2l 
"ESTA ATADO 

6042 IF N=23 
IrGOrO 1080 

6043 IF N=29 


AND NUT FL14) THEN PRINI 
A LA VAGONETA.GOTO l08O 
THEN PRINl "VALE":ÜB1N)=-' 

AND OBlN)=JUGADOR THEN PR 


INT "VALE";OB(N)=-2:VALORARIÜN=VALORAL 
lON-HOsGOTÜ 1080 

6044 IF N=38 AND OB(N)=Jü6aD 0R 1HEN PR 
INT "VALE":OB(N> =-2:VAL0RAC10N=VAL0RAC 
10N+1O:00Tü 1080 


6900 IF N=9 AND (OB(7)^JUGADOR OR OB(7 


)=-i) THEN mo»="El Explosivo ha estall 

ADÜ Al -CON!ACTO":GOTO 4500 
6910 ÍF N=20 AND JIJGAD0R=22 THEN PRINT 
"UNA VEZ DESPIERIA LA CODICIA,PRINl 
“TAMBIEN LA MUERTE SE BENEFICIA." 

6915 GOTO 1080 

6999 PRINl “AQUI NO VEO NADA PARECIDO* 
“:GOTO 1080 

7000 IF N=16 AND 0B(18)=-1 THEN PRINl 
"VALE":OB(18)=JUGADOR:GOTO 1080 

7005 IF OBíNlO-l IHEN PRINl "PERO SI 
NO TENGO NADA DE ESTO!":GOTO 1080 
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7010 IF N=6 AND JUGADORAS THEN 0B(6>-0 
;FL(3)=-lSPRINT M4»:PR1NT M5»:0B(14)=0 

7O20^If'^N=5 and JUGAD0R=5 1 HEN 0B(5)=0 
:FL^3)=-1:PRÍNT M4í:PRINT M5»:0B(l4)-O 

7900 0B(N)=JUGADÜR: PRINl "VALE": GOTO 1 

tíOOO IF OB(N)<.>JUGADOR AND T 

HEN PRINT "AQUI NÜ VEO NADA PAREOIDU. 

8005°íF^N=4 and JUGAD0R=3 THEN PRINl " 
la CABANA VA ESTABA ABIERTA."=GOTO 108 

8010 IF N=5 IHEN PRINl "VALE":GÚ10 108 

8020 IF N=ll and NÜT FL(1) IHEN 
"LA CADENA NO LO PERMITE!":GÜfO 1080 
8025 ^rtll AND FLd) IHEN PHINT “VAL 
£ - LA TAPA CAE HACIA ATRAS.":FL(2)- 1 

8030^IF N=23 THEN PRINT “VALE": GOTO lO 
O O 

8035 IF N=29 THEN PRINT "VALE":GOTO lO 
8040 IF N=32 THEN PRINT "LO SIENTO!“:P 

RINT “NO SOY FRANKENSrEIN.": GOTO 1080 

8045 IF N=36 THEN PRINT "COMO?": GOTO 1 

8999 PRINT "NO ENTIENDO LO QUE QUIERES 

9000 IF OB(N) OJUGADOR AND OBlNX . -l T 
9010^’lF^Ndl^AND JUGAD0R=4 

"LA CADENA SE ROMPE. ":FL(1)—1:GOTO lO 
tíO 

9020 IF N=19 THEN PRINl "COMO Y PARA Q 
UE"''":GOTO 1080 

9030 IF N=21 IHEN PRINT "COMO Y PARA Q 
UE2“:G0T0 1080 
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VV(.)0 IF N==lfc AND ÜBtl8)=-l AND JUbADÜK 
-4 fHEN PRINT "LA CADENA ^E ROMPE."iFL 
(l)=-l;bOTO 108Ü 

V999 PRINI "NO ENllENDO LO QUE QUIERES 
DECIR!“:bÜTÜ lOBO 

lUOüO lE N=ltí AND JUGaDÜR= 4 AND ÜB(18) 
=-l fHEN PRlNT "LA CADENA SE ROMPE."zF 
L(1)=“1:bOT O 1 d8u 

lUOlO IF N=1B AND JU&ADÜR=4 AND OB(ltí) 
0-1 IHEN PRlNl "NO TENGO NINGUNA BARR 
A DE HIERRO.“:GOÍO lOBO 

10Ü2U IF N=.iíj AND 0B122)=-1 IHEN PKINI 
vale “ : PASADA (22, 1) =23: GOIO 1080 
10030 IF N=21 AND tOB(N)^JUGADOR OR ÜB 
<N)=-1) IHEN PRINT "VALE":FL(4;=-l:GÜf 
O 1080 

10040 IF N=27 AND ÜBt22)=-l IHEN PRINT 
”VALE":PASADA(10,2) = 12:GO r O 1080 
1OO50 IF N=27 AND ÜB(22)0-1 THEN PRIN 
T "CON QUE?":GOTO 1080 

10999 PRlNl “NÚ ENTIENDO LÜ QUE QUIERE 
S DECIR!":GÜ10 1080 

11000 IF 0Bt43)<>~l THEN PRINT "NO I EN 
GO NADA PARA ENCENDERGOTO lOBO 
11010 IF N=B AND L'Z<=0 THEN PRINT "NO 
QUEDA ACEITE EN LA LAMPARA.":GOTO 1080 

11020 IF N=42 AND (ÜB(43)=-1 OR Ll=-1) 
THEN PRINT "ZZZI13CH",:FL(7)=-l:£X=JU 

GADA+3:0B(N)=O 

11021 IF N=42 AND (0B(43)=-1 OR Ll=-1) 
THEN RASADA(30,2)=31:PASADA(31,1)=30: 

GOTO 1080 

11030 IF N=23 AND ÜB(23)=-1 THEN PRlNl 
"VALE - LA LAMPARA ESI A ENCEND1DA.":L 
M=L1:LW=1:bú1O 108O 

11040 IF N=43 THEN PRINT "VALE - LA ME 
CHA SE CONSUME.":GOTO l08O 
119VB PRINT "NO ENTIENDO LO QUE QUIERE 
B DECIR.":bOTO 1080 

1200O REM i*»**»»»»»»*»»»»*#»»» LLENA 
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lí'OlO IF N=23 AND (FL^^») AND ÜB(2-i> 1 

) ÍHEN LM=60: f-L =0: LW=0: PRlN T "VALt." 
:b010 1080 

12020 IF N=‘3 AND JUbADÜR=l7 THEN l-LOb» 
iivj ( "lA bo tella es i a llena. “:bOr 

Ü 1080 

12030 IF N=43 AND ÜB(43)=-1 THEN PRlNl 
"LA MECHA SE CONSUME.“: GOrO lOBO 
12998 F’KlNl "NÜ ENl lENDO LÜ ÜLlE QUIERE 
S DECIR.":GOTO 1080 

13OO0 RFM »»»»»»*»»»»»»*»»»»»»» entra 
13010 IF N=13 AND JUbADUR=5 THEN JUGAD 
0R=Í2:PR1NT "VALE";bÜlÜ 1080 
l399S F’RÍNf "NO ENTIENDO LO QUE QUIERE 
S DECIR. ":bLlT0 1080 

14000 IF N=23 AND UB<N>=—1 ÍHEN Ll—LM- 
LW;PRINT "VALE":GOTO l08O 
14998 PRlNl "NÜ ENÍlENDÜ LÜ QUE QUIERE 
S DECIR.":bO TÜ 1OBO 

15000 IF N=21 AND JUGaDOR= 9 IHEN PHINl 
■* VAL E " : ÜB < N) =9: PASADA ( 9, S) = 1B: PASADA < 
18,5)=9:GÜ10 1080 

159V8 PRINT "NÜ ENTIENDO LÜ QUE QUIERE 
S DECIR.":GOTO 1080 
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I 

t] 


SPACE MISSION 


Por favor, no entre este programa llevado por la 
de una aventura gráfica, a menos que usted sea 
absoluto a esta materia, y que sus 
programación no le permitan extraer del 
respuestas a las preguntas que se le harán nada más comenzar 

el juego. 

A d.f.r,n=l» *. UA *•«» .««"turas, do"d. I.s .'t..o^"« 
B.llgros.s s. produce, s «us. de sus «clones, en Sp.ce 
^ulfon, usred sdlo dispone de —e ',.n «.des p.r. 
salvar su vida después de Iniciar la partida con RUN. 


Sería una lástima que usted perdiese las ganas J 9 
con programas de este tipo, sólo porque no pueda sentir 
satisfacción de conseguir un éxito. 
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'-<1 GRAPHICS IP.SETCOI ÜR 2, 1 , O: SncriLOP 
fi/FR'lNT*""SFvW MISSION'*:'^ *•(0) 19R4 í? 

\ 1^’ rtR=30; AO- r.O: AF=11: SP^^l 1 : IhAX=7: 7UG 

/ir» DTM RA<5C3'.) ,nLUAR,6) ,RT*(36) ,fcINGA 

BEt (20) , Tt (30) , OB (AO) , OZ» (50) , 7A.* (3) , F 

1^3 DIM VERBeN$(97),EVt(10),F.O^(lO>,OB 

JEKTF4.(201 ),M0»(4A):nK*^’*VAlF,";TRAP 10 

RO 

133 VERBFN5*="FXAMINA COGE ABRfc 

PULSA COLOCA LLEVA 

JíjO VERBENA (L EN (VERBFN$)+ 1 )="LI ENA 

PON ÜTII.IZA CAMBIA 

163 OB.) F KIE•’ CEN T VI DETFRMI11 PEI EL E ANT I 

En'tRENTPGFHAORDEF.XPAMODUHFXACAB'.. 11IBOPO 

I 7 Ó 0B.IEKTE1F (l.EN (OBOEFaE») 4 1 > 

AMONIPt IERAUTOMANDCATRT ISCMOVEDE. TlOX 1 bl 
RAJl I AVSTOrATripPUES'- 


I 3r«=' 


OBJEK CEÍ <L.EN (QB.IEPTF^^ ^ 1 > = "P‘JE«SET 


CMODlIMF.Dn OORf''ADIMAt^NrCHn*SD*V)FW>«F 
TATSEL-OTRAiNlíDNTPASSCAJA*': GOTO 


( Ib 


RN 

207 PRINT 
:RETURN 
203 PRINT 


"EN LA BALA DE TRiWSMTSl ON. " 
"t:N LA CENTRAL EMIBORA. " : FE T 


URN 

204 PRINT 
ETURN 

205 PRINT 

206 PRINT 
RfTURN 

207 PRINT 

208 PRINT 
.“;RETURN 

209 PRINT 


"EN EL F'UEBTO DEL F‘ILOTO«”:R 
"*»:RE:TURN 

"EN EL CONTROL DE ENTRADA.": 

"F;N un ENTF:nF>üENTE. ":RFTUR;N 

"EN L.A SECCION DE ASTRONOMIA 
"EN lA CUPULA POLAR SUPERIOR 
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••; RETURN 


210 PRINT 

"EN 

URN 


211 PRINT 

"EN 

212 PRINT 

"EN 

rRETURN 


213 PRINT 

m 

z 

RN 


214 PRINT 

"EN 

T'JRN 


215 PRINT 

"EN 

216 PRINT 

"AN1 

D.RETURN 

217 PRINT 

••EN 

218 PRINT 

••EN 

219 F-RINT 

••F.N 

220 PRINT 

••EN 

":RFTIIFVN 


221 PRINT 

'•EN 

222 PRINT 

"EN 

ETURN 


223 PRINT 

••EN 

ETURN 


224 PRINT 

••EN 

ETURN 


225 PRINT 

••EN 

ETURN 


226 PRINT 

"EN 

ETURN 


227 PRINT 

"EN 

ETURN 


230 PFxJNI 

••EN 


:RETl)RN 

301 Tít-"FL PUESTO Dfi MANDO CENTRAl.": RE 


TURN 

302 T*-"Í^ANTAI I A DE VIDEO “ : RE TI IRN 

303 T$="NADA ESEECIALRETURN 

304 T %-■ ” 1 ERM T NAL " ; RETI IRN 

305 T^="HIFERCÜM":RETURN 

306 Tí-'’Tr:i .ECOM" s RETUF<N 
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307 TI•="'*: RETURN 

308 T$-"FNTRADA":RETURN 

309 ..RETURN 

310 Tí”''" ! RET*JE’N 

311 TÍ="0F:DENAD0R"; RETURN . 

312 Tí="MnDULO DE F XPONS^ UN" : RE • UF<N 

313 TÍ="liODULüS"; RETURN , 

314 Tí- ” I L AVE MACHO HEXA60NAI_ : RE ■ URN 

315 Tí="ARBOLES DE CABLES";RlTURN 

316 Tí="TUBOS":RETURN 

317 T$=”ROTUI.a": RETURN 

318 Tí="":RETURN 

319 T$=''ARMARIO" : RETURN 

320 Tí = " " : FcETURN 

321 TÍ="PUERTA": RETURN 

■37 Í Tí-"FI. PILOTO AUTOMATICO": RETURN 

323 TÍ="UN BOTON DE MANDO" :REIURN 

324 TÍ="UN CATRE":RETURN 

325 TÍ="NADA ESPECIAL":RETURN 

326 ** 2 RFTURN 

327 tí="DEPOSITOS":RETURN 

328 TÍ="POTELLA DE OXIRENO":RETURN 
309 TÍ-"UN TRAJE ESPACIAL":RETURN 

330 TÍ-"LLAVE DEL JO":RETURN 

331 Tí="":RETURN 

332 Tí-" ATORNILI ADOR" : FíETURN 
T37 ■j"4~"PUESTn DF. MANDO ":hETURN 
334 TÍ-"UNA puerta ROJA":RETURN 
33'^f TS—** ** ¿ RHTIIRN 

336 rí '="UN MODULO" : RETURN 

337 T'^rs-MEDICAMENTOS": RETLJRN 
33.8 1 í- " " : RF TI.IPN 

33^ Tt="APARATOS DE RADtO":RETURN 

340 Tí--'"TARJETA MAUNFTTCA";RETURN 

341 Tí="NAL-A F.SF-ECIA' RETURN 

342 T í — " " : RF LIRN 

343 Tí—"":RETURN 

344 Tí-" " : RE^F'EN 

343j Tí-*'" : RE^FIRN 

346 Tí RETURN 
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347 T»^"":R£TURN 

348 T*="NADA ESPECIAL":RFTURN 

349 TRE TIJRN 

350 T$="nAJAS'*:RETURN 

401 DATA 1,1,30,12,0,0,0,0,0,7,0,-1,0, 
O,7,9,8,0,10,0,9,0,9,10,11,O,21,O,O,O, 
O, 0,14,14, O, O, O, O, 3, O, lA, O, O, 30, O, O, O 

402 DATA 6,0,15,3,3,16,0,0,0,6,0,O,O,O 
,0,1,1,0,0,O,O,3,O,O,6,0,0,0,O,O,O,0,0 
,0,2,0,0,0,O,O,O,23,0,0,0,0,O,22,0,0 

403 DATA 0,0,0,0,0,0,22,0,0,0,22,0,0,0 
,0,30,24,0,0,12,12,IB,13,0,0,0,0,12,0, 
O, O, 0,0, 17,0, O, O, O, 2, 0,0, 0,-0, O 

404 DATA 0,24,0,0,0,19,19,26,14,0,0,18 
,IB,27,12,0,0,17,17,20,0,0,0,0,0,0,19, 
O,«», O, O, 25, O, O, O, O, O, 10, 8, 9, 23 

405 DATA 0,0,0,0,72,24,0,0,11,16,23,0, 
O,0,0,O,24,26,O,0,0,17,25,27,0,O,O,18, 
26,O,O,0,0,0,0,O,0,0,O,O,O,O 

406 DATA O,O,0,11,0,0 

601 PRINT "NQ VEO IMADA ESPECIAL. RETU 
RN 


602 PRTNT “Nü TENGO TANTA FUERZA.RFT 
IIRN 

603 F-RIMT "COMO TF l.O IM AGI ÑAS?": RETUR 
N 


604 PRJNr "PERO SI ESTO YA 10 TENGO!": 
RFTURN 

605 PIUNT "NO ENTIENDO LO QUE QUIERES 
DECIR. "rREpJRN 

9 <»() FOR I =-‘l TO AO: READ L AGEORT: 08(1) =l 
AGEORTrNEXT T 


910 FOR 1 = 1 TO AF:Fm)=0:NEXT I 

920 FOR RA'=1 TO AR:FOR RI = 1 TO 6:READ 

?:nU(RA,RI)=Z:NEXT RlrNEXT RA 

1000 GRAPHICS 8:SETC0L0R 2,1,0:GOTO 10 

40 


1021 1$="N, ":RErURN 

1022 Tí="S, ":RETÜRN 

1023 Tí="0, ":RFTURN 
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1024 Tí-="E, "zRETURN 

1025 Tí="AP, RFTURN 
lt:t¿6 lí-="AB, ":RETURN 
1040 Tí="" 

J 050 2EÍ=CHRÍ(30):ZET(LEN(ZEÍ)+1)=CHRí 
l30) : ZEÍ (L.EN (ZEÍ) + 1 )=='•- " 

1080 PRINT : ZUG=ZUG-í 1 : IF Al TOSP THEN 
f jRAPHíes a: SETCOI .OR 2,1,0: GOSUB 30000 
1100 FOSITIDN 2,0:F'RINT "ESTOY ";:GOSU 
H 200+SP: ALT=SP' 
ti 10 DZí="VEO: " 

1 ("‘O FOR 1-1 TO AO 

1130 IF ÜB(I)<>SP THEN GOTO 1170 

1140 GD=-l:GOSUB 300+I:Tí(LEN(Tí)+1)”" 

II 

1150 IF L EN(D 2 í)^ L EN(Tí)>-38 THEN PR1N 
1 üZ»:OZÍ=Tí<1,LEN(TÍ)):TÍ="":GOTO 117 
(t 

1 lóO D7’.! (LrN(D7í) t-1) =TÍ: Tí=" " 

I170 NEXT I 

111)0 IF NOT GD THEN D2Í (LEN (DZí)+1) =" 
NADA FSPFJCIAL, " 

1190 DZÍ (LEN(DZ<)+1)=ZEÍ 
1200 PRINT DZ£:GD=0:D7Í="" 

1230 POR RT=1 TO 6 

1740 IF DU(SP,FíI)=0 THEN GOTO 1280 
1150 GOSUB 1020+Rl;GD=-1 
1 270 DZÍ (LEN (D/.í J +1 > ^Tí: Tí="'‘ 

I2B0 MFXT Rl 

1290 IF NOT GD THEN DZí(LEN(DZí)+1)-" 
NINGUN SITIO" 

1300 PRINT DZí; 

135«) IF FL(1)=0 THEN PRINT "ALARMA"’;: 
U- ZUG79 THEN M0í="N0S HA ABORDADO UN 
(iSTERO IDE.": GOTO 4500 
1390 INPUr EINGABFí 

I4<.)0 IF EINGABEÍ="N" AND DU(SP,1)< >0 T 
H1 N SP=DU (SP, 1) :PRINT OFíírGOTO 1030 
Jí'lO IF EINGÁBEÍ="S" AND DLKSF, 2)00 T 
HEN SP=DU(SP,2) :PRINT OF<í:GOTO 1080 
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1^1420 ir FINGABEí='' 0 " AND Dü(SP,3)<>0 T 
HEN SP=DU(SP,3);PRIN T OK í:GOTU )080 
1430 IF FINGABEí="E" AND DU(BP,4)<>0 T 
HEN SP=I>U < 8P, 4) : PRI NT OK »: GOTO 1080 
1^40 IF EINt ABEí="AR'' AND DI I <SP, 3) ' O 

THFN OP^Dl I (SF,3 );pRINT OK* r GOTO 1ORO 
14BO IF F INGABF»=^'‘AB'' AND DU (SP, é.) . : O 
THFN SP~Di J (RP, -S) : PR l NT GK*: GOTO í 080 
3 4¿,n Jf- I.F N (;E.TNGAP.E») <3 THFN PRINT ''HA 
OIA AID NO CONDUCE NINGUN C AH 1 NO ' " ; GO 
lU 1080 

1470 TF l EN<riNGABF$)>8 THFN GOTO 2000 
1500 IF EINGABE»(l,3)<>"INV THEN GOTO 

1 ísOO 

1505 PRINT "INVENTARIO:’' 

1510 EOF: 1 = 1 10 AO 

1515 ir 08(1) ••=- 1 THFN GOSUB 300+1: PR1N 
T 1*;'* •*; 

1t.20 NFXT I ' 

1525 GOTO 1080 

1 I Tr r INGABEít < 1,3) < >"SAV" THFN BOTO 
i 700 

1605 PRINT "NOMBRE ";:INPUT FINGAHFt:1 
F LFNIETNGABFí)>8 THFN GOTO 1605 
1610 rT-"n: ":F1NGABET (I .FN <F 1 NGABFíj;) + 1 ) 
DAÍ" 

16U. T$(! rN(T»)+l )=:EIN6ABF» 

1620 OPFN #1,B,0,T« 

1625 PRINT #l,sr 

163.0 r f <R I i-- 1 T n AO; PR 1 NT # 1, OB (1 ) : NF X1 
I 

1635 POR RA=1 TO ARrFOR RJ=1 TO 6:FRIN 
T ♦♦1,DU(RA,RI) :NEXT RI:NEXT RA 
1.655 POR 1 = 1 Tü AFtPRINI «1, F'L < 1) : Nf XT 
í 

1660 CIOSE #1: PRINT OK^rGOTO 1080 
1700 TF FINGABE$(l,3>‘.,>"L0A" THFN 00(0 
1900 

1705 PRINT "QUE. JUE'GO ";:INPUT FINGABF 
t; T F I r- N < F T NGARE%) >8 THFN 1705 
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1 710 T4¿=-"D: FINGABF» <l EN (EINGABFí) f 1) 
=".DAT" 

1715 T$(LEN(T»)+1)=EINGABE» 

1720 OPEN #1,4,0,Tí 
1725 INPUT #1,SP 

1730 POR 1=1 TO AO:INPUT #1,LO:OB(I)=L 
0:NEXT I 

1735 POR RA=1 TO AR 

1/40 POR RI=1 TO 6 

1745 INPUT #1,ZIEL:DU(RA,RI)=ZIEL 

1750 NEXT RI 

1755 NEXT RA 

1760 POR 1=1 TO AF:INPUT #1,ZlEL:FL(1) 
=ZIEL:NEXT I 

1765 GLOSE #1:PRINT OK»:GOTO 1080 
1900 IF EINGABE»(1,3)<;>"INS" THEN GOTO 
1910 

1910 IF EIN6ABE»(1,3)<;"FIN" THEN PRIN 
T "NO COMPRENDO":GOTO 1080 
1915 GRAPHICS O:PRINT "EL AUTOR LE DES 
EA MAS SUERTE EN EL";PRINT "PROXIMO IN 
TENTO?":PRINT ;PRINT :PRINT :END 
2000 LN=LEN(EINGABE») 

2010 POR 1=1 TO LN 

2020 IF EINGABE»(I, 1)0" " THEN NEXT I 
2030 EV«=EINGABE»(1,1) 

2040 IF LEN(EV»)=LN-1 THEN GOTO 2090 
2050 En»=EINGABE«(I+l,LN) 

2060 VN=0:N=0 
2070 EV$=EVÍ(1,4) 

2080 EO»=EO»(1,4) 

2090 POR 1=1 TO LEN(VERBEN») STEP lO 
2100 VN=VN+1 

2110 IF VERBEN»(I,I+3)=EV* THEN GOTO 2 
140 

2120 NEXT I 

2130 PRINT "NO ENTIENDO EL VERBO I";GOT 
O 1080 

2140 POR 1=1 TO LEN(ÜBJEKTE»)-2 STEP 4 
2150 N=N+1 
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2160 IF 0BJEKTE*(I,I+3)=E0* THEN 2200 
2170 NEXT I 

2180 PRINT "NG ENTIENDO EL OBJETO!":60 
TO 1080 

2200 ON VN GOTO 5000,6000,7000,8000,90 
00,10000,11000,12000,13000,14000 
2330 RETURN 
4500 GRAPHICS O 

4510 PRINT ”":PRINT :PRINT M0$ 

4520 PRINT :PRINT "ESTOY MUERTO!":FOR 
I=l TO 800:NEXT I:GOTO 1915 
4530 PRINT"LO VUELVE fl INTEHTfiR";:INP 
UT EHTRfiDflí 

4540 IF ENTRADAS< 1.1)*"S''THEHRUN 

4550 END 

4800 GRAPHICS O 

4810 PRINT "ENHORABUENA!" 

4820 PRINT :PRINT :PRINT "HA RESUELTO 
EL PROBLEMA PLANTEADO Y" 

4830 PRINT :PRINT "PUEDE AFRONTARSE A 
UNA NUEVA " 

4840 PRINT :PRINT "AVENTURA." 

4850 PRINT :PRINT :PRINT :END 

5000 IF OB(N)<>SP AND 0B(N)<>-1 THEN 6 

OTO 5900 

5005 IF 0=1 THEN PRINT "CON ESTO CONTR 
OLO EL PILOTO AUTOMATICO.":PRINT "VEO 
TECLAS:*SD*,SELO,STAT,VIEW.":OB(22)=1 

5006 IF N=2 AND FL(1)=0 THEN PRINT "LA 
PANTALLA MUESTRA UN ASTEROIDE":GOTO 1 

080 

5007 IF N=2 AND FL<1) THEN PRINT "NO V 
EO NADA ESPECIAL.":GOTO 1080 

5010 IF N=6 THEN GOSUB 601:GOTO 1080 

5013 IF N=25 AND 0B(40)=0 THEN PRINT " 
DEBAJO HABIA UNA TARJETA MAGNETICA.":O 
B(40)=11:GOSUB 30000:GOTO 1080 

5014 IF N=8 AND SP=23 AND FL(7)=0 THEN 
PRINT "ESTA CERRADO.":GOTO 1080 

5015 IF N=8 AND SP=25 AND FL<8)=0 THEN 
PRINT "ESTA CERRADO.":GOTO 1080 

5016 IF N=8 AND SP=23 AND FL(7)=-1 THE 
N PRINT "CONDUCE HACIA UN ENTREPUENTE. 
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•rGOTO 1080 

COIV IF N=8 .AND SP=25 AND FL (8)=-Í THE 
N PRINT "CONDUCE HACIA UN ENTREPUENTE, 

"•.rom 1080 

L-.019 IF N=39 THEN GOSUB 601: OB l5) =SP: O 
B(6)=SP:OB(39)=0:GOTO 1080 
L)02O IF N=5 THEN GOTO 20000 
5021 IF N=44 AND 0B(29)=0 THEN PRINT " 
DEBAJO ESTA MI TRAJE ESPACI Al.. ": GOTO 1 
080 

5025 IF N=4 THEN PRINT "EXISTEN LAS CI 
ERAS O - 9,";GOTO 1080 

5026 IF N=10 AND 0B(32)<>-1 THEN PRINT 
"NO RUEDO ABRIRLO.GOTO 1080 

5027 IF N=10 AND 0B<32)=“1 THEN PRINT 
"DENTRO ESTA EL ORDENADOR CENTRAI.. ": OB 
I1l)=7:0B(t0)=0:G0T0 1080 

/i028 IF N=ll THEN PRINT "VEO NUMEROSOS 
MODULOS.":0B(13>=SP:0B(15)=0:G0T0 108 

11 

5029 (F N=13 THEN PRINT "SON MODULOS D 
L EXPANSION.":GOTO 1080 

5030 IF N=12 THEN PRINT "... UN MODULO 
NORMAL DE ORDENADOR.":GOTO 1080 

5031 IF N=14 THEN GOSUB 601:GOTO 1080 
.'i032 IF N=15 THEN GOSUB 601: GOTO 1080 
5033 IF N=16 THEN PRINT "PERTENECEN AL 

SISTEMA DE VENTILACION.":GOTO 1080 
50'.4 IF N=17 THEN PRINT "SOLO UN INDIC 
ADOR.":GOTO 1080 

5035 IF N=20 THEN GOSUB 601:GOTO 1080 
t<036 IF N=33 THEN GOSUB 601: OB (30) =SP: 
l.UTO 1080 

5037 IF N=22 THEN PRINT "VEO TECLAS: 1 
AND MOVE STOP SETC":OB(N)=0:FOR 1=1 TO 

2000:NFXT IrGOTO 1080 

5038 IF N=23 THEN GOSUB 601:GOTO 1080 
!.039 IF N=24 AND ÜB(32)=0 THFN PRINT " 
DI TRAS HAY UN ATORNIL LADOR. " : GOTO 1080 
•'i040 IF N=32 THEN GOSUB 601: GOTO 1080 
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5041 N--=27 THEN BOSUB 601:6010 1090 

5042 IF N-~28 AND FL<4) -0 THEN PKINT "E 
STA VAC r. A. " : GOTO 1080 

5043 IF N=?H AND FL(4)=-1 THEN PRINT " 
ESTA LL ENA. GOTO 1080 

5044 IF N=29 THEN PRINT “ES EL M10.’‘:G 
OTO 1080 

5045 IF N=30 THEN 60SUB 601:GOTO 1080 

5046 IF N-48 THEN GOSUB 601:GOTO 1080 

5200 IF N==24 THEN GOSUB 601: GOTO 1080 

5899 GOSUB 601:GOTO 1080 

5900 RFM 

5901 IF N=7 AND SP=24 THEN GOSUB 601:G 
OTO 1030 

5902 IF N=7 AND SF-23 THEN FL(5)=-1:AL 
T=0:0B<8)=SP:G0T0 1080 

5903 IF N=7 AND SP=24 THEN GOSUB 601:G 
OTO 1080 

5904 IF N=7 AND SP=25 THEN FLl6)-—1:0B 
(9)=SP:ALT=1:GnT0 1080 

5905 IF N=7 AND SP=26 THEN GOSUB 601 ;G 
OTO 1080 

5906 IF N=7 AND SF-27 THEN GOSUB 601:G 
OTO 1080 

5907 ÍF N=7 AND SF=22 THEN GOSUB 601:G 
OTO 1080 

5910 IF N=20 AND SF-8 THEN ? "PIA III 
ESTA INDICADO CON 151064.":GOTO 1080 
5916 IF N=25 AND 0B(40)=-1 THEN GOTO 1 
080 

5920 IF N=32 THEN GOSUB 601:GOTO 1080 

5922 IF N=8 AND SP=25 AND DU(25,4)--0 T 
HEN PRINT "ESTA CERRADO.":GOTO 1080 

5923 IF N=47 AND SP=2 THEN PRINT "EL M 
ISMO MODELO ! " : GOTO 1 CtBO 

5924 IF N=4 AND SP=2 THEN PRINT "EL MI 
ShO MODELO!":GOTO 1080 

5925 IF N=20 AND SP=15 THEN PRINT "SON 
LOS MEDICAMENTOS.":GOTO 1080 

5990 PRINT "AQUI NO VEO NADA PARECIDO! 
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":GOTO 1080 

6000 IF OB(N)<>SP AND ÜB(N)<>~1 THEN G 
OTO 6900 

6005 IF N=40 THEN PRINT OK»:OB(N)1:G 
OSUB 30000:GOTO 1080 

6010 IF N-12 AND 0E:il2)=-l THEN GOSUB 
604:GOTO 1080 

6011 IF N=12 THEN OB(12)=-I:PRINT OK*: 
GOTO 1080 

6012 IF N-13 THEN PRINT "TENGO UN MODU 
LO.“:ÜB(36)=-l:&nT0 1080 

6013 IF N=J4 ÜR N=28 THEN PRINT OK»:OB 
<N)=-l;GOTO 1080 

601A IF (N=30 OR N=50) THEN PRINT OK»: 
OB<N):^-l:GOTü 1080 

6000 IF N=32 THEN PRINT OK*:OB(N)=-1:G 
UTO 1080 

6890 IF N=SP THtN GOSUB 602:GOTO 1080 
6900 REM 

6910 IF N=29 THEN PRINT OK»:Ob(N)=-1:G 
OTO 1080 

6915 IF N=20 AND SP=15 THEN PRINT 0K9z 
0B(50>=-1:G0T0 1080 

6920 IF N=32 AND 0B(N)=0 THEN 0B(32)=- 
1:PRINT 0k*:G0T0 1080 

6990 PRINT "AQUI NO VEO NADA PARECIDO. 
":GOTO 1080 

/HOO IF N=41 AND 0B<40)=-1 THEN PRINT 
QK »:DU{16,4)=1:ALT=2:GO TO 1080 
7005 IF N=41 AND OB<40)0-1 THEN PRINT 
"NO ES POSIBLE EN ESTE MOMENTO.":GOTO 
1080 

7010 IF N=8 AND 0B<14)<>-1 THEN PRINT 
"NO TENGO NADA PARA ABRIR.":GOTO 1080 

7011 IF N--8 AND SF-23 AND 0B<14)=-1 TH 
LN PRINT 0K$:DU(23,4)=7:FL(7)=-1:GOTO 
1080 

7015 IF N=23 AND SP=9 THEN M0»="0XIGEN 
tJ SE ESCAPA Y ME ARREBATA AL ESPACI 
(L";G0T0 4500 
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7020 IF N=9 AND SP~14 THFN M0$=''ME Al.C 
ANZO lJr4A DESCARGA RADIADA DE LA SALA D 
F REACTORES.GOTO 4S00 
7t !99 GOSUB 605: GOTA 1030 
ROOO REM 

ROlO IF N=46 AND FL (7)=-l 1HEN PRJNT " 

CLIC " : DU < 24,6 > =25: ()OTí) 1030 

8012 IF N=46 AND FL(2)=0 THFN PRINT "N 

O SUCEDE NADA.":GOTO 1030 

8020 IF N=45 THFN GOTO 20200 

3021 IF N=43 TMEN GOTO 20300 

P022 IF N=42 THFN MO$.= ’'ESTO FUE LA ALIT 

ODESTRIJCCION ' “ : GO I D 450«) 

8024 IF N=1B 7HEN 110»= “EL PHOTO AOTOM 
ATICO ATERRIZO I.A NAVE EN EL SOL . ": GOT 
O 4500 

8025 IF N=26 AND TM»="151063" TMEN MO» 
="LA FUNCION DE AVERIA' COORDENADAS 

ERRONE AS.":60TO A 500 
3026 IF N=26 AND EL (1) =0 THEN PRINT "l_ 
A NAVE ESQUIVA EL ASTER01DE.";:FL<1)=- 
I;GOTO 1030 

8027 IF N-=26 AND Fl (1)=-1 AND FL(10)=0 
THFN M0»="DATOS FJE RUMBO NO INDICADOS 
• DESTINO FUE UN SOL.":GOTO 4500 

8028 IF N=26 AND FL<10)=-1 AND 0B(50)<. 
>5 3 THFN MO»="LINCHAD0, POR HABER I. LE6 
ADO SIN MEDI- CAMENTOS.":GOTO 4500 

8029 JE N=31 THEN F‘l ( 1 )= 0 : PRINT nK»;GO 
TO 1080 

8030 IF N=35 THFN PRINT "COORDENADAS " 
;:ÍNPUT TM»:IF TM»="151064“ THEN FL(lO 
)=-1:GOTO 1080 

3031 II' N=35 THEN GOTO 1080 

8032 II N- 26 AND FL<10>=-1 AND 0B<50) = 

33 THEN GOTO 4800 

8115 IF N=23 AND SP=9 THEN MO»="Sl: ESC 
APA OXIGENO Y ME ARFyEBATA Al. FSPACl 
O.":GOTO 4500 

8990 PRINT "AQUI NO VEO NINGUN Pü ION C 
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UNO ESTE.":GOTO 1080 
9m00 IF 0B(N)<>-1 THEN GOTO 9900 
7010 PRINT OK»:OB(N)=SP:GOTO 1080 
7900 IF N=13 AND 0B(36)=-1 THEN OB(36) 
’SP:PRINT OK»:GOTO 1080 

7715 IF N=20 AND 0B(50>=-1 AND NOT (E 
I»' 15 OR SP=13) THEN PRINT 0K»:0B(50)=S 
I jFL(11)=-1:G0T0 1080 

loOOO IF N=29 THEN PRINT "ME HE PUESTO 
IL TRAJE ESPACIAL.":0B(29)=-2:0B(14)= 
l:GOTO 1080 
loOlO GOTO 6000 

11000 IF N=28 AND SP021 THEN PRINT "C 
UN QUE?":GOTO 1080 

llOlO IF N=28 AND SF-21 AND 08(30)0-1 
IHEN PRINT "NO ES POSIBLE EN ESTE MOM 
INI O.": GOTO 1080 

11020 IF N=28 AND SF-21 AND 0B(30)=-1 
IHI N PRINT 0K»:FL(4)=-1:G0T0 1080 
I1900 GOSUB 605:GOTO 1080 
I 'OOO IF N=38 AND SP=12 THEN INPUT TM» 
lliÜTO 1080 

l.'OOS IF N=38 AND SP=2 THEN INPUT TM»: 
I.IIIO 1080 

I ’OlO IF N=49 AND SP=6 THEN INPUT TM»: 

II TM»="220559" THEN DU(2,1)=15:SP=15; 

I.() IO 1080 

I 720 IF N=49 AND SP=6 AND TM»<>"22055 
7" IHEN MO»="SE HAN ACTIVADO LOS SISTE 
MAS DE DE- FENSA.";GOTO 4500 
I '.(»O0 IF N=47 AND NOT (SP=12 OR SP=2) 
IHI N PRINT "NO VEO NINGUN TRANSMISOR. 
"iliOTO 1080 

I ’ttlO IF N=47 AND SP=12 AND TM»<>"6446 
M" THEN MO»="MIS ATOMOS FLOTAN EN EL 
lili K RESE-AGIO. " : GOTO 4500 

I *.'iU IF N=47 AND SP=2 AND TM»<>"64466 
V IHEN M0»="M1S ATOMOS FLOTAN EN EL H 

II I KESPACIO. “:GOTO 4500 

I 'n.'o IF N=47 AND (SP=12 OR SP=2) AND 
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rM$=*‘644664" THEN SP=2:G0T0 1080 

13021 IF N-47 AND <SP=12 OR SP=2) AND 

TNÍ="644663" FHEN SP=12:G0T0 1080 

3 3030 IF N=^?? AND SP=1 THEN FL <1)=-1:P 

RINT OK*;GOrO 1080 

13900 GOBUB 605;GOTO 1080 

14000 IF N=13 AND SP=7 AND OBI13)=7 TH 

FN PKINT 0K*;0B(12)=0;ÜB<36)=-l;rL<2)= 

-IrGOTO 1080 

20000 GRAPHICS O:? '‘ACCIDENTE EN PIA 3 
» REQUERIDOS MEDI- CAMENTOS CIBARAD 9 
2 » ‘7t)LAR CON RUMBO A ESTACION 1701 **’ 
20010 ? "COORDENADAS 1701: 644664": 

"PIA3: 151063":? :? "PASSWDRD: 22055 
9";? ;? "«FUNCION DF AVERIA*";ALT=0:G0 
TO 1390 

20200 IF FL. (l)=--0 THEN ? "PILOTO AUTOMA 
TICO OFF" 

20210 IF FL(2)=0 THEN ? "CPU DEFECTUOS 
O" 

20220 IF FL(2)=-1 THEN ? "SISTEMAS FUN 
CIONANDO" 

20230 IF FL<l)-0 THEN ? "ADVERTENCIA D 
E COLISION" 

20240 IF FL<2)--1 THEN ? "SITUACION: 6 
44663" 

20250 GOTO 1390 

21100 GOSUB 31000: GOSLIB 31600; RETURN 
21300 PLÜT lOO,8O;DRAWT0 200,80;DRAUTO 
200,120:DRAWTÓ 100,120;DRAWTO 100,80; 
DRAWTO 110,70;DRAWTO 190,70:DRAWTO 200 
,80 

21308 PLÜT IBO,70:DRAWTO 180,60;PL0T 1 
20,60;DRAWTO 120,70:PL0T 11O,60;DRAWTO 
190,60:DRAWTO 190,0;DRAWT O 110,0:DRAW 
TO 110,60 

21316 PLOT lOO,loo;DRAWTO 0 , 100 ;PL 0 T 2 
OO,100;DRAWTO 230,lOO:DRAWTO 270,140:D 
RAWTO 270,20:DRAWTO 230,0 
21320 PLOT 150,70:DRAWTO 150,80:RETURN 
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21700 PLOT 99,107:PLÜT 99,132:PL0T 164 
,132:PL0T 1 74 , 132:F'LOT 244,132:PL0T 24 
4,107:PLOT 174,107 

21708 PLOT O,O:DRAWT0 30,JO;DRAWT0 30, 
80:DRAWTO 0,100 

21711 F'LOT 90, 140; DRAWTO 90, 100; DRAWTO 
250,100;DRAWTO 250,140;DRAWTO 90,140 
21715 PLOT 90,1OO;DRAWTO 110,80;DRAWTO 
230,80:DRAWTO 250,100 

21718 PLOT 250,120:DRAWTO 310,120 

21719 PLOT 90,120:DRAWTO 50,120;DRAWTO 
10,160:PLOT 50,120:DFAWTO 50,Ó:PLOT 1 

30, 80; DRAWTO 1 -30, 60 

21723 PI.OT 131,60: DRAWTO 131,79; F’l 01 1 

23,87:DRAWTO 119,91:DRAWTO 122,91:ORAW 
TO 126, 87: DRAWTO 124,87: RETLIPN 
22000 PLOT 43,60;PLOT 43,59;PLOT 10,10 
;DRAWTO 40,JO:DRAWTO 50,30:DRAWTO 50,9 
O:DRAWTO 10,90:PLOT 50,30:DRAWTO 10,30 
22007 F'LOT O, 149; DF:AWTO 240, 1 49: DF;AWTO 
260,160:PLOT 239,149:DRAWTO 239,O 

22010 F'l.OT 219, 20; DRAWTO 19*^, 20; DRAWTO 
199, O; DRAWTO i 79,20: DRAWTO 159,20:DF:A 

WTO 159,40:DRAWTO I79,40;DRAWTO 179,60 

22011 PLOT 199,20;DRAWTÜ 199,O:DRAWTO 
179,O:DRAWTO 179,20 

22018 PLOT 179,60;DRAWTO 199,60;DRAWTO 
199,40:DRAWTO 219,40:DRAWTO 219,20 
22025 PLOT 79,140:DRAWTO 219,140:DRAWT 
O 199,120:DRAWTO 59,120;DRAWTÜ 79,140: 
RETURN 

22100 GRAPHICS 8: SE TC OI OR 2, 1 r O 

22101 PLOT 20,O:DRAWTO 20,100 

22102 DRAWTO 0,120 

22103 PLOT 100,82:DRAWTO 180,80 

22104 DRAWTO VI O, 50: DRAWTLi 130, 5<): DFíAW 
TO 100,80 

22107 Fi OT 11 O, 80: DRAWTO 110, 110; F'l. 01 
170,110:DRAWTO 170,80;PLOT 200,80:DRAW 
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TO 20O,í»0:FLCJT 20,60;DRAWT0 120,60 
22108 PLOT 200,60 

22110 DRAWTO 260,60:ORAWTO 2BO,80:DRAW 
TO 280,0:DRAWT0 310,30:DRAWTO 310,110: 
DRAWTO 314,114;PLOT 260,60:DRAWTO 260, 
O 

22118 PLOT 20,60 

22120 IF OB<40)<>11 THEN GOTO 22130 
22122 PLOT 130,70:DRAWTO 140,70;DRAWTO 
135.75:DRAWTO 125,75:DRAWTO 130,70 
22130 RETIJRN 

22200 PLOT 210,0 

22201 PLOT 218,157 

22202 PLOT 215,157 

22203 PlOT 212,157 

22204 PLOT 209,157 

22205 F-l OT 206,157 

22206 F-LOT 203,157 

22207 FM OT 200,157 

22208 PLOT 197,157 

22209 Pl.OT 194,157 

22210 PLOT 191, 1.57 

22211 F'LOT 210, O: DRAWTO 250,30 

22212 PLOT 250,l10:ORAWTO 250,30 

22213 F'LOT 210, O: DRAWTO 170, 30 

22214 PLOT 170,30;ORAWTO 1^0,110 

22215 PLOT 170,110:DRAWTO 250,110 

22216 PLOT 240,160:DRAWTO 320,140 

22217 F’LOT 220, 140: DRAWTO 120,140 

22218 F’LOT 120, 140: DRAWTO 100,160 

22219 PLOT 110,160:DRAWTO 120,150 

22220 F'LOT 120, 150: DRAWTO 220 ,150 

22221 F’LOT 220, 150: DRAWTO 2.30,160 

22222 F’LOT 61,0: DRAWTO 61, ^0 

22223 F’LOT 61,70: DRAWTO 111,20 

22224 PLOT 111,20: DRAWTO 11 1 , 

22225 F’LOT 111,20: DRAWTO 181,20 

22226 PLOT 238,20:DRAWTO 318,20 

22227 PLOT 220,8Ó:DRAWTO 250,110 

22228 PLOT 170,110:DRAWTO 200,00 
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PLOT 

200,80;DRAWTü 

220,80 

22230 

PLOT 

250,30;DRAWTO 

220,60 

22231 

PLOT 

220,60:DRAWTO 

200,60 


PLOT 

200,60;DRAWTO 

170,30 


F’I.ÜT 

30, 10: DF:AWT0 2 

;o, 1 OC¬ 

22234 

PLOT 

30,100:DRAWTO 

IO, 120:RF;TUFcN 

22300 

PL.OT 

0,0 


22301 

F’LOT 

0,0:DRAWTO 40, 

40 

22302 

PL OT 

4í.), 40: DRAWTO 160, 40; DRAWTO 

300, 0 




22304 

F’LOT 

280,20;DRAWTO 

20, 20 

22305 

PLOT 

40,40:DRAWTO 40,1OO:ORAWTO 

260,1OO:DRAWTO 260,40 


22308 

PLOT 

260,100;DRAWTO 

.300, 140 

22309 

PLOT 

40,100;DRAWTO 

30,110: DRAWTO 


30, 50: DRAWTO O, 20: DRAWTO O, 


22315. IF 
UB 22122 
22316 
22400 

22402 

22403 

22404 

22405 


(0B(50)=13 OR 5F’=15) THEN 009 


RETURN 

PLOT 60,O:DRAWTO foO,100 
60,100:DRAW TO 80,80 
80,40;DRAWTO 80,120 
80,120:DRAWTO 160,t 20 
16Ct, 120: DR A W T(T 1 60 , 80 


F’LOT 

PLOT 

PLOT 

PLOT 


22406 PLOT 

22407 PLOT 

22408 F’LOT 

22409 PLOT 

22410 PLOT 

22411 PLOT 

22412 PLOT 

22413 F’LOT 

22414 PLOT 

22415 PLOT 


160,80:DRAWTO 140,80 
140,80;DRAWTO 1OO,40 
100,40;DRAWT O 80,40 
80,40;DRAWTO 120, O 
100,40:DRAWTO 140,0 
140,80:DRAWTO 220,0 
240,O;DRAWTO 160,80 
160,120:DRAWTO 260,20 
260,20:DRAWTO 260,0 
260,10;DRAWTO 780,lO 


22416 PLOT 280,10;DRAWTO 280,O;RtTüRN 
22600 PLOT 100,O;DRAWTO 200,O;DRAWTO 2 
00,140:DRAWTO 100,140;DRAWTO 100,O 
22602 IF SP=9 THEN F’LOT 150,0: DRAWTO 1 
50,140 
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22605 IF nU<16,4)<>! AND SP=9 THEN PI O 
T 150,O:DRAWTO 150,140 

22606 PLOT 220,60:DRAWTO 220,ñO:DRAWTO 
210,80:DRAWTO 210,60:DRAWTO 220,60 

22610 PLOT 50,142:DRAWTO 260,142:DRAWT 
O 260,0 

22612 PLOT 50,142:DRAWTO 50,0 
22í:>13 PLOT 50, 142:DRAWT0 32,160 
22614 PLOT 260,142:DRAWTO 278,160 

22630 IF SP=9 OR SP=6 THRN GOTO 22699 

22631 IF DLl(16,4)', >1 THEN GOTO 22699 
22643 PLOT 170,O;DRAWTO 170,60:DRAWTO 
200,30 

22645 Pl.OT 170, 60: DRAWTO 1 60: DF';AWTO 

150,70: DRAWTO 150,50: DRAWTO 160, 40; DF< 
AWTO 160,60 

22650 PLOT 150,70:DPAWTD 100,70 

22651 Pl .OT 100, 50: DRAWTO 150,5u 

22652 PLOT 160,40;DRAWTO 100,40 

22653 PLOT 100,30:DRAWTO 160,30 

22654 PLOT 160,30;DRAWTO 160,0 

22699 RETURN 

22700 PLOT 10,0;DRAWTO 10,1OO:DRAWTO O 
,110:PLOT 130,50;DRAWTO 10,50:PLOT 0,1 
20:DRAWTO 310,120 

22704 PLOT 310,90;DRAWTO 250,90:DRAWTO 
250,0 

22706 PLOT 250,50:DRAWTO 170,50;DRAWTO 
170,0;PL0T 170,10;DRAWTO 130,50:DRAWT 
O 130,O;RETURN 

23000 ? "AOLII ECTA DEMASIADO OSCURO PA 
RA VER.":PRINT •'E.";:INPUT ETNGABEÍ: IF 
EINGABE*(1,4)<>"TECL" THEN 23090 
23010 IF EIÑGABE*="E“ THEN SP=12 
23020 PRINT "AQUI HAY UNA BOTELLA DE O 
XIGENO.“;OB(28)=20 
23090 RETURN 

23200 GOSUB 31200:G0SUB 31400;GDSUB 31 
300;RETURN 

23300 GOSUB 31200;IF FL<5) AND SP=23 T 
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HFN GOSUB 31400 
23310 FÍFTURM 

23400 GOSUB 31200;GOSUB 31300:GOSUB 31 
400:RETURN 

73600 GOSUB 31200:GOSUB 3140C;RF!URN 
23700 GOSUB 31200:60506 31400;RETURN 
24000 P1.0T 3, 103: DRAWTO 73, 103: DRAWTO 
103, 73: DRAWTO 10-3, 53; DRAWTO 73,83:DRAW 
TO 73,103 

24006 PLOT 73,93:DRAWTO 3,93 

24007 PLOT 93,63;DRAWTO 3,63 

24008 PLOT 103,72;DRAWTO 723,72 

24009 PLOT 223, O: DRAWTO 223,-'2: DRAWTO 
263,112:DRAWTO 263,12:DRAWTO 253,2 

24013 PLOT 263,62:DRAWTO 303,62 

24014 PL OT 313,160:DRAWTO 303,150:DRAW 
TO .303,50: DRAWTO 253, O: RETURN 

30000 IF SP>20 THEN 30030 

30005 IF SP>10 THEN 30020 

10010 ON SP GOSUB 21 300,222O0, ?1300,1 

400,21500,22600,21700,21300,72600,2200 

O 

30011 RETLJRN 

■.U020 OM SP-lO GOSUB 22100,22200,7230o 
.22400,22300,22600,22700,22700, 22700,2 
3000 

30021 RETURN 

70030 ÜN SF'-20 GOSUB 23100,23200,23300 
, 23400, 2.3300, 23600,23700, 23800,23900,2 
4000 

30031 RETURN 

31200 PLOT 80,C:DRAWTO 80,160 

31202 PLOT 120,140;DRAWTO 140,140:PL0T 
200,140:DRAWTO 220,140;PlOT 260,160:D 

RAWTO 260,0 

31203 PLOT 200,140;DRAWTO 220,140 

31204 PLOT 260,160:DRAWTO 260,0 

31205 PLOT 220,100:DRAWTO 200,lOO:PLOT 
200,60;DRAWTO 220,60;PLOT 220,20;DRAW 

TO 200,20 
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31208 PLÜT 140,20:DRAWT0 120,20:PL0r 1 
20,60:DRAWTO 140,60 

31210 PLOT 140,100:DRAWTÜ 120,lOOrRETU 
RN 

31300 PLOT 60,80 

31301 PLOT 20,20:DRAWT0 60,40;DRAWT0 6 
0,100:DRAWT0 20,140;RETURN 

31400 PLOT 280,40;DRAWT0 300,20 
31402 PLOT 280,40:DRAWT0 280,100:DRAWT 
O 300,120;IF FL(5) AND SP=23 THEN PLOT 
285,70 

31405 RETURN 
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PROGRAMADOR GRAFICO 


Ya he desarrollado el programa, cuyo listado mostramos a 
continuación, para poder programar sencillas gráficas HIRES 
de forma fácil y rápida. r 

El procedimiento seguido es muy sencillo: usted crea la 
gráfica en la pantalla, con la ayuda de algunas preguntas 
hechas por el editor,y utilizando un cursor controlado por 
teclas. Se graban los datos necesarios para crear la Imagen 
y se utilizan, más adelante, para confeccionar un 
subprograma, que se podrá añadir a otros programas. 

De esta forma evitamos tener que emplear algún medio 
auxiliar, como por ejemplo, hojas de trabajo de la pantalla, 
para determinar las coordenadas apropiadas. 


CONFECCION DE GRAFICAS CON GRAFPO 

Antes de empezar, compruebe si su Atarl se encuentra en el 
modo gráfico mayúsculas. 

Después de mostrar la Imagen titular, el editor pedirá el 
modo operativo deseado. Esto quiere decir que usted 
%mlocclonará el modo gráfico y los colores del fondo y del 
primer plano. 

Pulse una tecla cualquiera en cada caso; si el color 
rmponde a sus deseos, pulse <RETURN>. 

Cuando el ordenador haya cambiado al modo operativo 
iMifteodo, podrá disponer de un conjunto de Instrucciones de 
rontrol y de carácteres. 

Las Instrucciones de carácteres se ejecutan al pulsar su 
Imc.lo correpondlente, mientras que debe pulsarse la tecla 
<ONTR0L> para procesar las Instrucciones de control. 
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MOVIMIENTOS DEL CURSOR 


El cursor es un punto Intermitente e Indestructible que 
aparece en la pantalla* Su control se efectúa con las 
teclas: 

Q W E 
A D 
Z X c 

Su disposición en el teclado corresponde a las direcciones 
del movimiento* 

Al Iniciar el programa, el cursor se encuentra siempre en 
la posición 0,0, o sea, en la esquina superior Izquierda. 

Para que podamos dirigirnos rápidamente a cualquier punto 
en la pantalla, tenemos la posibilidad de determinar 
cualquier longitud de paso del cursor después de entrar 
CTRL-C* 

La alternativa prevé una pulsfclón de la tecla P, y 
después podrá entrar directamente las nuevas coordenadas* 


DIBUJAR 


Para dibujar 
deseada y pulse U 
El punto será 
sus coordenadas 
programación* 


un punto, dirija el cursor a la posición 
para su recepción* 

pos le Ionado Inmediatamente, y se memorlzan 
para utilizarlos en la posterior 


SI desea dibujar una línea, dirija el cursor primero al 
punto de partida* 

Después pulse la tecla L para fijar este punto, dirija el 
cursor ahora al punto final y vuelva a pulsar L* 
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TRATAMIENTO DE ERRORES 


Para evitar que se recíban valores Incorrectos, es 
necesario confirmar la posición de cada punto y de cada 
línea dibujada con J* Al pulsar cualquier otra tecla,se 
anulara el último proceso realizado* 

Por razones de rapidez, es mejor prescindir de esta 
confirmación* Con CTRL-B es posible activar y desactivar 
esta función de control en cualquier momento* 

Aunque Incurra en un error, su obra no estará perdida* Al 
entrar CTRL-Z se borra la pantalla y se vuelve a dibujar la 
imagen, pero sin tener en cuenta ni la última línea dlbu^'ada 
ni el último punto* 


GRABAR IMAGEN, CARGAR IMAGEN 

Pulse CTRL-L o CTRL-S y entre un nombre de un máximo de 
ocho letras para la Imagen* Grafpo añade automáticamente el 
complemento *BDT (datos de Imagen) y ejecuta el proceso 
deseado* 


PROGRAMAR IMAGEN 

Después de pulsar simultáneamente CX)NTR0L y P* se deberá 
entrar otra vez un nombre* A continuación, se le pedirá el 
número de línea en el cual debe comenzar el programa, y se 
crea un correspondiente programa. 

CONTROL Q finaliza la ejecución del programa* 
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EMPLEO DE LOS PROGRAMAS CREADOS 


Los programas generados no responden al formato habitual 
con el que se graban programas Basic. Por esta razón, no 
podemos cargarlos con la Instrucción LOAD sino con ENTER. 

Tenga en cuenta, que al cargar un programa con ENTER no se 
borra el actual contenido de la memoria. Y puede ser útil 
para enlazar diversas partes del programa, pero también 
puede ocurrir que los listados se mezclen de manera confusa. 
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1 REM PROGRAMADOR GRAFICO 

2 RFM (C) 1984 BY JOERO WALKnWTAK 

1 RFM RRRRRRRRRRRRRRRRRRRRRRfíRRRRRRRR 
5 GRAFHIC8 OrSETCOLOR 2,0,0 
i'i RRINT " EDITOR PROGRAMADOR 6RAF 
ICO (C) 1984 BV DATA BECKER 

•'SPRINT SPRINT sPRlNT 
10 SETCOLOR 2,0,058010 100 

19 REM »*»»*»»»*»<;*»»$*»» SUbPROGRAMAS 

20 PRINT ttT,l,INEA,Z't;LINEA==L.INF;Aí-10;RE 
TURN 

40 Z f- <1. EN (Z$) +1) =H*5 RETIJRN 

0f) Z!t<LEN(Z^)t-l)=STR$(X) sRETURN 

99 RFM »*»#**»:»;»«»*»**» INICIALIZACION 

100 CLR :DIM PX(200),PV(200),PC(2u0),7 
:< (100) , VY ( 1 00) , NX (100) , NY (100) , NOMBRÉ* 
(tí),FILE*<12),Z*(50),H»(40) 

no PZ=0:LZ=0sC-lsPX(0)=05PY(0)=05PX(J 

)=0;PY(l)-O 

120 XMAX=320:YMAX=160 

130 REVISION-0 

200 OREN # 2,4,O,“K s" 

205 HF=05PRTNT "POR FAVOR, ELIJA ..."s 
PRINT SPRINT 

207 POSITION 2,23SPRINT "SI CORRECTO, 
PULSAR <RETURN> ..."; 

210 POSITION 2,95PRINT "- COLOR DE F 

ONDO";GET #2,EsIF E=155 THEN GOTO 230 
215 HF=HF+l5lF HF=16 THEN HF=0 
220 PRINT HFsSETCOLOR 2,HF,O;GOTO 210 
225 HE=0 

230 POSITION 2,11:PRINT "... CLARIDAD" 
sGET #2,E5lF E»155 THEN GOTO 250 
235 HE=HE+lsIF HE=15 THEN HE=0 
240 PRINT HE;SETCOLOR 2,HF,HEsG0T0 230 
245 GET #2,E:IF E0155 THEN GOTO 205 
250 POSITION 2,9:PRINT " 

"sPOSIllON 5,9;PRINT " 

II 

760 POSITION 2,9;PRINT "... MODO.OPERA 
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T IVO GRAF- ICQ 8" ; CHRí (30) ; TUR» (I») ) ; : I Nf 
ÜT MODUE 

270 POSITION 2,.il:PRIN1 "... COLOR DE 
CARACTER 1";CHR«(30);CHR^(30);;INPÜT P 
F 

280 GRAPHICS MDDUS 

290 SETCOLOR 2, HF, HE: COI.OR SF 

300 TRAP 10000;REH INTERCEPTAR ERRORES 

999 REM »»****♦»»»» PROGRAMA PR^NCIPAl. 

1000 GET í»2,E 

1010 REM MOVER CURSOR 


1020 

IF 

E=87 

THEN 

Y=Y-C:GOTO 1500 


1030 

IF 

e=88 

THEN 

Y=Y-*-C:GOrO 1500 


1' ‘40 

IF 

E--6Q 

THEN 

X = X-iC:GOTO 1500 


1050 

IF 

E=65 

THEN 

X=X-C:GOTO 1500 


1060 

IF 

E=69 

THEN 

X=X+C:Y=Y-C;GOTO 

150 

■I) 

1070 

IF 

E=67 

THEN 

X=X+C:Y=Y+C;GOTO 

150 

0 

1080 

0 

1090 
0 

11 00 

IF 

E=81 

THEN 

X=X-C:Y=V-C:GnTn 

150 

IF 

F=90 

THEN 

X=X-C;Y=Y+C;GOTO 

150 

RFM ORDEN ENCONTRAR 


1.1 lo 

IF 

E=76 

THEN 

GOTO 3000 


11 20 

IF 

E=26 

1 HF.N 

GOTO 5000 


1130 

TF 

E=16 

THEN 

GOTO 4000 


i 140 

JF 

E=19 

THFN 

GOTO 6000 


1150 

IF 

E=12 

THEN 

GOTO 7000 


1 1 60 

IF 

E=14 

THEN 

C4_0BE #2:CLR ; RUN 

1170 

IF 

E=80 

THEN 

GOTO 3100 


1180 

IF 

E=85 

THEN 

GOTO 3110 


1190 

IF 

E=3 

THEN PRINT "NUEVA LONGITUD 


DE PASO DEL CURSOR ";;INPUT C;PR1NT ; 
PRINT iPRlMT :GOTO lOOO 
1200 lE" E=17 THEN GOTO 20000 

1499 REM CONTROL DE ZONA 

1500 IF X>XMAX THEN X=XMAX 
1510 TF X<0 THEN X=0 

1520 IF Y<0 THEN Y=»0 
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1530 IF Y>YMAX THEN Y=YMAX 
1540 60SUB 2000 

1545 PRINT ••X;";X;" Y: “¡Y;" F:";F:IF E 
=155 THEN GOTO 3150 

1550 IF F1=0 THEN COLOR HFzPLOT X1,Y1 

1559 REM COLOCAR PUNTO 

1560 IF E=80 THEN Fl=l:COLOR SF:PLOT X 
,Y:PX(PZ)=X;PY(PZ)=Y:PC(PZ)=3:PZ=PZ+1 
1570 IF E=32 THEN F1=0:COLOR HF:PLOT X 
,Y:PX <PZ)=X:PY(PZ)=Y:PC(P2>=2:PZ=PZ+1 
1580 GOTO lOOO 

1999 REM »»♦»»$»»»»♦ MOSTRAR POSICION 

2000 LOCATE X,Y,F 

2010 FOR 1=1 TO 20:C0LbR SFzPLOT X,Y:C 
OLOR HF:PLOT X,Y:NEXT I 
2020 COLOR HFiPLÜT X,Y 
2030 RETURN 

2999 REM »♦»*»»**»»»***♦ ENTRADA LINEA 

3000 IF DESPUES=0 THEN PRINT "LINEA DE 
X=";X;", Y=";Y:VX=X:VY=Y:DESPUES=-1;G 

OTO lOOO 

3005 F'RINT "DESPUES ";X;", ";Y:NX=X:NY 
=Y:DESPUES=0 

3010 COLOR SFzPLOT VX,VY:DRAWTO NX,NY: 
IF REVISI0N=0 THEN E=74:G0T0 3030 
3020 PRINl "O.K.7":GET #2,E 
3030 IF E=74 THEN VX(LZ)=VX:VY(LZ)=VY: 
NX (I Z)=NX :NV(LZ) =NY: PRINT : PRINT :LZ=L 
Z+1:G0T0 1000 

3040 IF E074 THEN COLOR HFzPLOT VX,VY 
:DRAWTO NX,NY:GOTO 1000 

3099 REM *í»»»»»»******» ENTRADA PUNTO 

3100 PRINT "XjY •■;:INPUT X,Y 

3110 IF X>XMAX THEN PRINT "»* X ES MUY 
ELEVADO":GOTO 3100 

3120 IF Y>YMAX THEN PRINT "*» Y ES MUY 
ELEVADO";GOTO 3100 

3130 IF Y<0 THEN PRINT "»» Y ES INADMI 
SIBLE":GOTO 3100 

3140 IF X<0 THEN PRINT "»» X ES INADMI 
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SIBI.F'‘:G0T0 ti00 

3150 COLOR RF.'PI OT X,Y;IF REVISinN=0 1 

HEN F.=74:G0T0 3170 

3160 PRINT ••O.K.?":6ET #2,E 

3170 IF E=74 THEN PX(PZ)=X:PY(PZ)=Y:PR 

INT :PRINT :PZ=PZ+1:GOTO 1000 

3180 IF £074 THEN COLOR HFrPLOT X,Y;6 

oro loco 

3999 REM »»*»»»»**»»»» CREAR PROGRAMAS 

4000 PRINT "NOMBRE DE LA IMAGEN :INP 
ÜT NOMBRE»:IF LEN(NOMBRE»)>8 THEN PRIN 
T ” »» MUY LARGO! **";GOTO 6000 

4005 PRINT "PRIMER NUMERO DE LINEA ";; 
INPUT LINEA 

4010 N0MBF>;E»(LFN(N0MBRE*) + 1 ) = ".BAS’‘ 
4020 FI LE»= " D: : FI LE» (LEN < FI LE») +1) =NÜ 

MbRL» 

4030 OPEN #1,8, O, FILE» 

4050 Z»="GRAPHICS ":X=MODUS:GOSUB SOiH 
»==" : EiETCOLOR 2, ” : GOSUB 4<j ; X =HF: GOSUB 8 
O;H»=",":GOSUB 40:X=HE:GOSUB 80:GOSUB 
20 

4060 Z»=="COLOR X=BF: GOSUB 80: GOSUB 2 
O 

4100 FOR P=0 TO PZ~1 

4110 Z»="PLOT X=PX(P):GOSUB 80:H»=", 
GOSUB 40;X=PY(P):GOSUB 80iGOSUB 20 
4120 NEXT P 
4150 FOR L=0 TO LZ-1 

4160 Z»="PLOT ":X=VX(L):GOSUB 80:H»=”, 
":GOSUB 40:X=VY(L);GOSUB 80:H»=":DRAWT 
O":GOSUB 40 

41/0 X=NX(L):GOSUB 80:H*=",”:GOSUB 40; 
X =NY(L):GOSUB 80:GOSUB 20 
4180 NEXT L 

4190 CIOSE #1;PRINT "IMAGEN ESTA PR06R 
AMADA • : PR I NT : GOTO 1OOO 

4^99 RFM »*♦ DIBUJAR IMAGEN NUEVAMENTE 
5000 GRAPHICS MODUS:SETCOLOR 2,HF,HE;C 
OLOR SF 
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5010 P7=PZ-1:F0R P=0 TO PZ-1 
5020 X=PX(P);Y=PY(P):PLOT X,Y 
5030 NEXT P 

5040 LZ=L7-1;F0R L=0 TO LZ-1 
5050 PLOT VX(L),VY<L);NX=NX(L);NY=NY(L 
):DRAWTO NX,NY 
5060 NEXT L 

5070 FRINÍ "DIBUJO TERMINADOGOTO lO 
00 

5999 REM ALMACENAR DATOS DE IMAGEN 

6000 PRINT "AL-MACENAFc NOMBRE DE IMAGE 
N";;INPUT NOMBRE»:IF LEN(NOMBRE»)>8 TH 
EN PRINT •• »» MUY LARGO! **”;&OTO 6000 
6(0 C.I NOMBRE» (LEN (NOMBRE») +1) = ". BDT " 
6020 FI lE»=" D; " : FI LE» (LEN (FI LE») -i-1 ) ^NO 
MERE» 

60.30 OPEN # 1, O, n, F ILE» 

6040 PRINT #1,MODUS:PRINT #1,HF:PRINT 

«l,HF:PRINT #1,PZ;PRINT #1,L7 

6030 FOR P=0 TO PZ-1 

6060 FRINT #1,PX(P);PRINT #1,PY(P) 

6070 NEXT P 

6080 FOR L=0 TO LZ-1 

6090 PRINT #1,VX(L):PR1NT #l,VY(L):PRI 
NI «IjNXID.NYíD 
6100 NEXT L 

6110 PRINT “DATOS DE IMAGEN ALMACENADO 
S • ••; GLOSE # 1: GOTO 1000 

6999 REM »*»»»* CARGAR DATOS DF IMAGEN 

7000 PRINT "CARGAR:NOMBRE DE LA IMAGEN 
";;rNPÜT NOMBRE*:IF LEN(NOMBRE»)>8 TH 

EN PRINT " MUV LARGO' *»":GOTO 6000 
7u1u NOMBRE»(LEN(NOMBRE»)+1)=".BDT" 

7020 FILE»=*'D: ":FILE» (LEN (FILE»)+1) =N0 
MERE» 

7030 OPEN #1,4,O,FILE» 

7040 INPUT #Í,MODUS;INPUT #1,HF:INPUT 
#t,HE:INPUT #1,PZ;INPUT #1,LZ 
7Of,0 FOR P=0 TO PZ-1 

7060 INPUT #1,X:INPUT #1,Y;PX(P)=X:PY( 
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P)=Y 

7070 NEXT P 

7080 POR L=0 TO L2-1 

7090 INPUT #1,X:INPUT #1,Y:VX<L)=X;VY( 
L)=Y:INPUT #1,X:INPUT #1,Y:NX(U)=X:NY( 
L)=Y 

7100 NEXT L 

7110 PRINT "DATOS DE IMAGEN CARGADOS!" 
:GLOSE #1:G0T0 1000 

7999 REM *»**»»»**»**»»****» REVISION? 

8000 IF REVISI0N=-1 THEN REVISION=0;PR 
INT "ATENCION! NO CONSULTAR!":GOTO 100 
O 

8010 IF REV1SI0N=0 THEN REVISI0M=-1:PR 
INT "SE PRECISA CONFIRMACION.":GOTO 10 
00 

lOOOO PRINT "»*»* ERROR »**»":GOTO lOO 
O 

20000 GLOSE #1:GLOSE #2:GRAPHICS 0:END 
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GENERADOR DE AVENTURAS 
•VENTUREFIX* 


Este programa le confrontará con todas las preguntas que 
deben contestarse para crear un completo programa de 
aventuras capaz de funcionar. 

Antes de ejecutar el •VenturefIx*, usted ya debe haber 
definido la acción, confeccionado una lista de todos los 
lugares, objetos, palabras y mensajes, y formulado el texto 
de todas las acciones. 

El programa no le evitará el trabajo creativo, sino sólo 
la rutina de la programación. 

NI siquiera necesitará conocer el significado de la 
Instrucción PRINT y, no obstante, podrá crear programas 
Basic correctos. 

Ventureflx le pedirá en forma de diálogo uno tras otro 
todos los datos necesarios, y le Informará continuamente 
sobre el estado de desarrollo del programa, hasta quese 
haya elaborado una aventura completa, según el estilo de 
este libro. 


REFERENCIAS PARA POSEEDORES DE ATARI 600 XL 

No se asuste al apreciar que el siguiente listado ocupa 30 
- 40 kbytes, ya que Ventureflx se puede descomponer en 
varias partes, permitiéndole también a usted trabajar con 
este generador de programas. 

Divida el siguiente listado en bloques que quepan 
Justamente en la memoria de su ordenador (durante la entrada 
del programa, entre de vez en cuando PRINT FRE(O); en ningún 
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caso será preciso, que queden más de 1000 bytes 
disponibles). 

No hace fal+a cambiar el número de línea; sólo debe 
procurar no separar el programa en medio de un bucle y no 
prescindir de los subprogramas necesarios en las líneas 20 a 
100 . 

Además, la primera línea de todas los apartados después de 
la prImera debe dec1r: 

0 OPEN ltl,9,0,''D;ADVENTUR.TXT" 

Asimismo, finalice cada parte con: 

60000 aOSE l»l:PRINT "SE CARGA LA PARTE 

SIGUIENTE DEL PROGRAMA":RUN"D:VENTUREx 

Indicando, naturalmente, el número de la siguiente parte 
del programa en x. 
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J REM 3.11.34 

Í5 ERAPHJCS CcSETCOl.OR ?, O, O; POSIT ION 1 

h PRINT "VENTLIREF1X'‘;PR1NT "(c) 1984 b 

y Joerg Wal kowi ak PRINT : PRINT : PRINT 
"deí libro DATA DECKER:** 

7 PRINT :PRINT "AVENTURAS, / como se p 
rograman en el ATARI":PRINI :PRINT 

8 PRINT "(C) 1984 BY DATA DECKER, DUES 

SEi nORF":rOR I-l TO .30(»0:NEXT I 

9 DIN AVEN1URA*(12),ENrRADA«(20),CaPYR 
IiñHf»(3^;) ,FeCHA*(10) , Zí (120) ,H*(eO) , VE 
RSIONí (5 i , VERBOSA (80) , liOÍ (22) , M11 (38) 

10 DIN (40):GOTO lOO 

20 IF IMPRESION THEN LPRINT NUMEROLINE 
A;" ";Z$ 

30 PRINT #1 , NUMEROLINE A, 7NUMEROLINE A 

=NUMERí )L INEA+SALTOLINEAS: RETURN 

40 Z(I EN (Z $) -*• 1) =H5; REI URN 

50 OnsUB 70:GOSUB 40:G0SUB 70:HÍ=":RET 

ÜRN":GDSÜB 40:G0SUB 20;RETURN 

60 GÜSUB 40:G0SUB 70:GOSUB 20:RETURN 

70 Z»(LEN(ZS)+1>=CHR»(34):RETÜRN 

80 2*(LEN<7't)-i-l)=STR«(X) : RETURN 

90 OPEN #2,4,0,"K;":GET #2,ENTRADA:CLO 

SE #2;RETURN 

95 C-OSUB 40:G0SUB 20: RETURN 

100 FOR 1=1 TO 300:NEXT I:GRAPHICS 0:S 

ETCULOR 2,0,0 

lio AVENTURA*="D:":PRINT "COMO SE LLAM 
ARA LA AVENTURA:“:PRINT :INPUT ENTRADA 
» 

120 IF LEN(ENTRADA*)>8 THEN PRINT “POR 
FA’yOR, UN MAXIMO DE 8 LETRAS!"; GOTO l 
00 

130 AVENTURA*(LEN(AVENTURA*)+1)=ENTRAD 
A*: AVENTURA* < LEN (AVEN I URA*) -»• 1) = " . ADV " 
140 PRINT .-PRINT "DEBE CREARSE A LA VE 
Z UN LISTADO EN":PRINT "UNA IMPRESORA? 
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150 GOSUB 90 

160 IF <ENTRADA=74 OR ENTRADA=202) THE 

N IMPRESI0N=-1 

170 NUMER0LINEA=10 

180 SALT0LINEA=5 

200 GRAPHICS OrSETCOLÜR 2,0,0:PRINT "D 
ATOS PARTICULARES DE LA AVENTURA: ••;AV 
ENTURA»!1,7) 

210 PRINT -- 


220 PRINT "NOMBRE DEL AUTOR ":INPUT CO 
PYRIGHT»:IF LEN(COPYRIGHT»)>35 THEN PR 
INT ”... DEMASIADO LARGO!":GOTO 220 
230 PRINT ENTRADA»;", VERSION»: ":INPU 
T VERSION» 

240 PRINT "FECHA DE HOY ":INPUT FECHA» 
250 PRINT "CUANTOS LUGARES ":INPUT AR: 
DIM PA(AR,6) 

260 PRINT "CUANTOS OBJETOS ":INPUT AO: 
DIM OB(AO) 

270 PRINT "CUANTOS VERBOS ":INPUT AV 
280 PRINT "VALOR ESTIMADO, CUANTAS BAN 
DERAS ":INPUT AF 

290 PRINT :PRINT "EN QUE LUGAR DEBE CO 
MENZAR ";AVENTURA»(3,10):INPUT JUGADOR 
500 GRAPHICS 0:PRINT "PARTE I :INICIA 
LIZACION":PRINT :PRINT 

520 PRINT " - ABRIR FICHERO":OPEN #1,8 
,O,AVENTURA» 

530 PRINT " - ENCABEZAMIENTO DE PROGRA 
MA":Z»="REM ":Z»(LEN(Z»)+1)=ENTRADA»:G 
OSUB 20 

540 Z»="REM VERSION ":Z»(LEN(Z»)+1)=VE 
RSION»:GOSUB 20 

550 Z|:="REri <C) BV " :2t<LEN<Z$> + l)=C0P 
VRIGHT$:GOSIJB20 

560 Z»="REM CONFECCIONADO EL ":Z»(LEN( 
Z»)+1)=FECHA»:GOSUB 20 
570 Z»="REM CON AYUDA DE:":GOSUB 20 
580 Z»="REM VENTUREFIX ":G 

OSUB 20 

590 Z»="REM (C) 1984 BY WALKOWIAK":G 
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OSUB 20 

600 PRINT " - TITULO":Z»="REM- 

-... GOSUB 20 

610 Z»="GRAPHICS 0:SETC0L0R 2,1,0:SETC 
OLOR 4,1,0":GOSUB 20 

620 Z»="PR1NT ":GOSUB 70:Z»(LEN<Z»)+1) 
=ENIRADA»:GOSUB 20 

630 Z»="REM *t*** INSERTAR IMAGEN TITU 
LAR ": GOSUB 20: NUMEROLI NEA=NUMEROL INEAí- 
50 

640 PRINT " - DATOS PARTICULARES":Z»=" 
AR=":X=AP;GOSUB 80:GOSUB 20 
650 Z»="AO=":X=AO:GOSUB 80:GOSUB 20 
660 Z»="AF=":X=AF:GOSUB 80:GOSUB 20 
670 Z»="SP=":X=JUGADÜR:GOSUB 80:G0SUB 
20 

680 Z»="1RAP 4900":GOSUB 20 

700 PRINT " - DIMENSIONAR CAMPOS" 

710 Z»="DIM LU»(80),PA(AR,6),DI»(36),E 
NTRADA»(20),T»(40),OB(AO),LZ»(38) , DZ»( 
50),ZE»(3),FL(AF),ÜK»(4)":GOSUB 20 
720 Z»="DIM VERB0S»(120),EV»(20),E0»(2 
O),OBJETOS»(300),M0»(40)":GOSUB 20 
730 Z»="OK»=":GOSUB 70:H»="0.K.":GOSUB 
6 (? 

800 GRAPHICS 0:SETC0L0R 2,O,O;PRINT "P 
ARTE II : DATOS DE LA AVENTURA":PRINT 
:PRINT 

805 Z»="VERBOS»=":GOSUB 70 
810 PRINT "CUANTAS LETRAS DEBEN":PRINT 
"SER SIGNIFICATIVAS ";:INPUT WL 
820 PRINT :PRINT "NECESITA MAS QUE OTR 
OS 80 CARACTERES?";GOSUB 90:0TRA=0 
830 IF (ENTRADA=74 OR ENTRADA=202) THE 
N 0TRA=-1 

840 PRINT :PRINT "AHORA ENTRE SU VERBO 
S»:" 

850 INPUT H» 

860 IF LEN(H»)>80 THEN GOTO 800 
870 GOSUB 40:GOSUB 70:GOSUB 20 
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eso IF NOT OTFA THFN GOTO 900 

890 Z^-"VERBOSi(LEN <VERSOS»)+l)=":GOSU 

í< 70: GOTO 820 

900 ;'.»-’'QBJETQS»=";GOSUB 70 
920 PRINT :PRINT "NECESITA MAS DE 80 C 
AftASTERES":PRlNT "PARA LOS OBJETOS?":G 
OBUS 90:OTRA-O 

930 IF <ENIRADA=74 OR ENTRADA=202> THE 
N 0TRA=-1 

940 PRINT :F’RINT "AHORA ENTRE SU OBJET 
OS»: " 

‘-‘50 INPLIT H» 

960 IF UEN(n*);80 THEN GOTO 900 

970 GOSUB 40;G0SUB 70:G0SUB 20 

980 IF NOl OTRA THEN GOTO 1000 

990 Z»="VERBOS» (I.EN (VERBOS») +1) = " : G(JSU 

S 70;GOTO 920 

1000 Z»="GOTO 700":GOSUB 20 
1010 Z»="REM »*»»»* DESCRIPCIONES DE L 
Ü6AR" ; SAl.TOL INt-.A=l: NUMEROL INEA=200; GOS 
UB 20 

1020 GRAPHICS 0;SETC0L0R 2,O,O:PRINT " 
PARTE II; ENTRAR LUGARES":PRINT :PRINT 

lOTO FOR I=l TO AR 

1040 H»="";PRINT "ESTOY ";:INPUT H« 
1045 PRINT "E^te lugar conduce";PRINT 
" en el NORTE a lugar ";;INPUT D:PA<I, 
1)=D 

1050 PRINT " en el SUR a lugar ";:IN 
PUT D;PA(I,2)=D 

1055 PRINT " en el OESTE a lugar ";:1N 
PUT D:PA(I,3)=D 

1060 PRINT " en el ESTE a lugar ";;1N 
PUT D;PA<I,4)=D 

1065 PRINT " ARRIBA a lugar ";:1N 

PUT D:PA(I,5)=D 

1070 PRINT " ABAJO a lugar ";:1N 

PUT D;PA(I,6)=D 

1080 Z»="PRINT ";GOSUB 50 
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1'’90 NEXT J 

11 00 NI IMERDI INEA^^MUMEROl. 1 Nt-A í-50 

1110 7.»=’REM »*»*»*»****4i»»»»»#»* ÜBJE 

TOS":NUMEROL1NEA=300:GOSUB 20 

1120 GRAPHICS OrSETCOLOR 2,O,O:PRINT " 

PARTE ir : ENTRAR OBJETOS":PR1NT ;PR1N 

r 

1130 FOR J=1 TO AO 

1140 PRINT "VEO ";:INPUT H» 

1150 PRINT :PRINT "LUGAR INICIAL ";:IN 
PUT SR:OB(I)=SR 
1160 7»="T»=":60BUB 50 
1170 NEXT I 

IIPC» NUMrROLlNEA=NUMERDl lNEA+50 
1200 GRAPHICS O:PRINT "PARTE II ; DAT 
OS DE LA AVENTURA";PRINT ;PRINT 
1210 PRINT " - EMPLAZAR OBJETOS" 

1220 I-l 

1230 Z»="DATA " 

1240 H»^BTR»(OB(I)) 

1250 I==I + 1 
1260 GOSUB 40 

1270 IE LEN(H»)>100 THEN 1290 
1280 1F I< A0+1 THEN H»=",";GOSUB 40:GO 
TO 1240 

1290 GOSUB 20;IF I<A0+1 THEN 1230 
1300 PRINT " - CONECTAR LUGARES" 

1310 Z*="DATA ";l:0MMA=0 
1320 FOR LU==l TU AR 
L530 FOR Dl=l TO 6 

1340 IF KOMMA THEN H»=","¡GOSUB 40 
1350 H$=STR»(FA(LU,DI))¡GOSUB 40;KOMMA 
■-1 

I360 IF L EN < Z»)>100 THEN GOSUB 20;Z»=" 
DATA ";K0MMA=0 
1370 NEXT DI 
1380 NEXT I U 

I3P0 IF LEN(/»>>! THEN GOSUB 20 

1400 PRINT " - TITULO ; INSTRUCCIONES" 

lZ»="REM »*» AQUI INTRODUCIR TITULO 2" 
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; NUML'RO!. lNEA~ í>99: SOSüB 20 
1*U0 Z<>==‘'F-R1NT :PR1N1 :PRIN1 "; büSUB 7 
0:H»="DESEA RECIBIR CONSEJOS PARA CONT 
INOAR" 

1420 ñOSUB 40;G0SUB 70: H*='‘; : INPUT ENT 
RADA» '•: OnSUB 40: NUMEROLI NEA=700: GOSUB 
20 

1430 Z»="IF entrada»! GOSUB 70: H 

»="S“: GOSUB 40: GOSUB 70:H»=''THEN GOSUB 
G(»0":G0SUB 40:NUMEROL 1 NEA=798: GOSUB 20 
1440 Z»="GOTO 900" ; MI JMFROL I NEA=799; 60S 
UB 20:SALT0l. 1NEA"5 

1450 Z»=“GRAPHICS 0:SETCOLOR 2,1,0;SET 

COL OR 4,1, O : GOSl JB 20 

1460 Z»="PRINT '•:GOSUB 70;H»=” 

ATARI - OENTURES ":GOSUB 60 

1470 Z»="PR1NT GOSUB 70:H»=" (C) 

1984 BY JOERG WALKOWIAK GOSUB 40 

: GOSl IB 20 

1480 Z»="PRINT :PRINT ":GOSUB 70:H»="1 
(itaginese un robot al que puede con- t 
rolar con numerosos» comandos." 

1490 GOSUB 60 

1500 Z»=”PRINT GOSUB 70:H»="Yo soy e 
se robot y me pondré en su lugar pa 
ra en-f rentarme a todos los”: GOSUB 60 
1510 Z»="PRINT GOSUB 70:H»=“peligros 
de las aventuras mas exci— tantes.“ 
:GOSUB 60 

1520 Z»-”PRINT ":GOSUB 70:H»="Para que 
pueda manejarme cómodamente, le descr 
ibire en cada momento la siGOSUB 60 
1530 Z»=“PRINT GOSUB 70:H»-”tuacion 
en que me encuentre.":GOSUB 60 
1540 Z»="PRINT ":G0SUB 70:H»=’‘A contin 
uacion, Ud me indicara con":GOSUB 60 
1550 Z»="PRINT ":GOSUB 70:H»="das pala 
bras, como por ejemplo":GOSUB 60 
1560 Z»="PRINT GOSUB 70:Ht="INSPECCI 
ONA PUERTA, COGE CUCHILLO,":GOSUB 60 
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1 o que 


1570 Z»=’-PRINT GOSUB 70:H»=" 
deba hacrr GOSUB 60 
1580 2»="PRINT rPRÍNT GOSUB 70:Hí^"A 
demas entiendo las ordenes:GOSUB 60 
1590 Z»^"PRINT GOSUB /0:H»=" 

SAVE, LOAD,":GOSUB 60 
1600 2»-‘'PRINT ":G0SUB 70:H»=" 
INVENTARIO y FIN.";GOSUB 60 
1610 Z»="PRINT :PRÍNT ":G0SUB 70;H»-"P 

OR FAVOFv. PULSE <RETURN > Y_GOSUB 

40:GOSUB 70 

1¿.20 H»--*••; : 1NPUT ENTRADA»: RETURN": G05U 
B 40:GOSUB 20 

1700 PRINT " - PARTE DE INICIALIZACION 
" : NUMEROL INEA-900; SALTO!. INCA"! O 
1710 Z»=”HTR Ir=j TO A0:READ SITUACION 
OB(I)=SnUACION:NEXT I ": GOSUB 20 
1720 2»="F0R 1=1 TO AF:FL(I)=0:NEXT 1" 
;GOSUB 20 

1730 Z»="F0R LU=1 10 AR:F0R DI=1 TO 6" 
.-GOSUB 20 

1740 Z»="READ ME7A:PA(LU,DI)=META":GOS 
UB 20 

1750 Z»="NEXT DI:NEXT LU":GOSUB 20 
1800 GRAPHICS OrPRINT "PARTE III: ESCR 
IBIR MOTOR DF AVENTURA":PRINT :PRINT 
1810 NUMEROLINEA=1000 

1820 7 »="GRAPH1CS O;SETCOLOR 2,1,O;SET 
COLOR 4,1,0;GOTO 1030":GOSUB 20 
JB30 Z»="REM ♦»**»*« TEXTO CLARO: DIRE 
CCIONES " : SALTO!.. INEA= 1 ; NUMEROL I NEA= 1020 
:PRINT " - DIRECCIONES":GOSUB 20 
1840 Z»="T»=":GOSUB 70:H»="NORTE, ":GO 
!:iUB 40: GOSUB 70: H»=" ; RETURN" : GOSUB 40: 
GOSUB 20 

1850 Z»="T»=":GOSUB 70:H»="SUR, ":60SU 

B 40:GOSUB 70:H»=":RETURN":GOSUB 40;GO 
SUB 20 

1860 Z»="T»=":GOSUB 70:H»="OESTE, ":GO 
SUB 40:GOSUB 70:H»=";RETURN":GOSUB 40: 
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GOSUB 20 

1870 7*="T*=’';G0SUB 70:H*="ESTE, ” : GOS 

UB 40;G03UB 70:H$=”;RETURN“:G03UB 40:G 
OSUB 20 

1880 Z$=”T$=”:GOSUB 70: H$=*'ARRIBA, " : G 
OSUB 40:G0SUB 70:H»-":RETURN":GOSUB 40 
:GOSUB 20 

1890 Z«="T«=":GOSUB 70:HS="ABAJO, ":GO 
SUB 40:G0SUB 70: H»='’: RETURN": GOSUB 40: 
60SUB 20 

1900 NUMER0L1NEA=1030:SALT0L1NEA=10: Z« 

= ''LZ*=":GOSUB 70:H*='‘ 

":GOBUB 60 

1910 Z$="T*='*: GOSUB 70:G0SUB 70:G0SUB 
20 

1920 Z»="ZE$=CHR»(30):ZE*(LEN(ZE*)+1)- 
CHR»(30) : ZES(LEN<ZE$) + n=":GOSUB 70: H» 
= ".”:CiOSUB 60 

1930 NUMER0LINEA=1080:PRINT " - SALIDA 
EN PANTALLA" 

1940 Z*="PRINT”;GOSUB 20 

1950 Z*="FOR Z=0 TO 10:P0SITI0N 2,Z:PR 

INT LZ»:NEXT Z":60SUB 20 

1960 Z»="POSITION 2,0:PRINT ":GOSUB 70 
.H#= "ESTOY GOSUB 40: GOSUB 70:HS='‘;:G 
OSUB 200+JU":GOSUB 40:GOSUB 20 
1970 Z#="DZ$=*’: GOSUB 70:HÍ="VE0 " : GOSU 
B 60 

1980 Z*="FOR 1=1 TO AO":GOSUB 20 
1990 Z$="IF OBdlOJU THEN GOTO 1170": 
GOSUB 20 

2000 Z*="GD=-1:GOSUB 300+1:T$(LEN<T»)+ 
1) = •■: GOSUB 70: H*= " , " : GOSUB 60 

2010 ZÍ="IF LEN(DZ*)+LEN(T*)>=38 THEN 
PRINT DZ^:DZ$=T$(1,LEN(Tí)):Tí=":GOSUB 
70:GOSUB 70:HÍ=":GOTO 1170" 

2020 GOSUB 40:GOSUB 20 

2030 ZÍ="DZÍ<LEN(DZÍ)+1)=TÍ:Tí=":GOSUB 
70:GOSUB 70:GOSUB 20 
2040 ZÍ="NEXT I":GOSUB 20 
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2050 Zí="IF NOT GD THEN OZí(LEN(DZÍ)+1 
)=";GOSUB 70:Hí="NADA ESPECIAL. ":GOSU 
B 60 

2060 ZÍ="DZÍ(LEN(DZ$)+1)=ZE$":GOSUB 20 
2070 Zí="PRINT DZÍ":GOSUB 20 
2080 ZÍ-"PRINT LZÍ":GOSUB 20 
2090 Zí="DZí=":GOSUB 70:HÍ="PUED0 IR H 
ACIA ":GOSUB 40:GOSUB 70;Hí=":GD=0”:GO 
SUB 40:GOSUB 20 

2100 Z$-'*FnR DT = 1 7 0 6": GOSUB 20 
2110 ZÍ="IF PA(JU,DI)=0 THEN GOTO 1280 
GOSUB 20 

2120 Zí-"GOSUB 1020+DI:GD=-1";GOSUB 20 
2130 Zí=“IFLEN(DZí>+LEN(Tí)>=3aTHENPRI 
NTDZí:D7í=Tí(l,LEN(Tí));Tí=":GOSUB 70: 
GOSUB 70:HÍ=";G0T01280":GOSUB 40:GOSUB 

20 

2140 Z*="DZí(LEN(DZí> +1)=Tí:Tí-";GOSUB 
70:GOSUB 70:GOSUB 20 
2142 ZÍ="NEXT DI":GOSUB 20 
2144 Zí="IF NOT GD THEN DZí(LEN(DZí)+1 
)=":GOSUB 70;HÍ="NINGUN SITIO":GOSUB 6 
O 

2146 Zí="DZí(LEN(DZí)+1)=7nNDEí" 

2150 Zí="PRINT DZÍ";GOSUB 20 

2160 Zí="PRINT ";GOSUB 70;Hí="- 


60 


":GOSUB 


2170 Zí="REM »»* AQUI PRUEBA FIN DE JÜ 
EGO »»*":GOSUB 20 

2180 Zí="REM »*»: O TRAMPAS ASI COMO ** 

*»*»»»*••; GOSUB 20 

2190 Zí="REM »t» TRAMPAS TAMBIEN EN BA 
SE 1399":GOSUB 20 

2200 PRINT " - MOVER JUGADOR";NUMEROLI 
NEA=1390 

2210 ZÍ="P0SlTinN2,23:PRINT GOSUB 70 
:HÍ="QUE DEBO HACER GOSUB 40:GOSUB 7 
o:Hí=";:INPUTENTRADAÍ";GOSUB 40:GO^UB 
70 
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2220 Z$~"IF LEN(ENTRADA*) >2 THEN 1480'’ 
2230 Z*=”IF ENTRADA*='‘: GQSUB 70:H*="N’' 

:GOSUB 40 :60SUB 70 :H*=“AND PA < JU, 1 )< >0 
THEN JU=PA(JU,1) :PRINT OK*:GOTO 1080“ 
2240 GOSUB 95 

2250 Z*="IF ENTRADA*=":GOSUB 70:H*=”S" 

: GOSUB 40: GOSUB 70:H*='‘AND PA(JU,2)< ;o 
THEN J U=PA < JIJ, 2) : PRIN r OK *: GOT O ) 080“ 
2260 GOSUB 95 

2270 Z*=”IF ENTRADA*-":GOSUB 70:H*="0" 

: GOSUB 40: GOSUB 70;H*="AND PA(JU,3)<>i> 
THEN JU=PA<.1U,3) :PR1NT OK*:GOTO )080" 
2280 GOSUB 95 

2290 Z»=‘‘IF ENTRADA*-GOSUB 70:M*-“E’* 

: GOSUB 40: GOSUB 70: H*-" AND PA MU, 4 > >0 

THEN JU=PA<JU,4>:PRJNT OK*;GOTO mOO" 
2300 GOSUB 95 

23t0 2*="IF ENTRADA*-":GOSUB 70:H*-"AR 
";GOSUB 40:GOSUB 70:H*="AND PA < J U,5 ><' 
OTHEN JU=PA(JU,5):PR1NT ÜK*:G0T0 1080’ 
2320 GOSUB 95 

2330 Z*-"IF ENTRADA*-":GOSUB 70:H*-"AB 
GOSUB 40: GOSUB 70: H*-" AND PA<.1U,6) <.> 
OTHEN JU-PA < JU, 6) : PRINT OK*: faOTO 1OOO" 
2340 GOSUB 95 

2345 Z*="IFLEN íENTRADA*)<3THFNPR1NT":G 
OSUB 70:H*=“HACIA ALLI NINGUN CAMINO'" 
:GOSUB 40:GOSUB 70;H*-":G01O1080":GÜSÜ 
B 95 

2350 Z*="IF LEN(ENTRADA*)>8 THEN GOTO 
2000":GOSUB 20 

2400 PRINT " - INVENTAR 10": NUMERO!. INCA 
-1500:SALTOLINEA=5 

2410 Z*= " IF ENTRADA* 0,3)0": GOSl'B 70: 
H*="!NV";G03UB 40;GOSUB 70:H*-" THEN G 
OTO 1600";GOSUB 95 

2420 Z*-"PRINT GOSUB 70; H*-"LLFVC) CO 
NMIGO LO SIGUIENTE:":GOSUB 60 
2430 Z*="FOR 1=1 TO AO";GOSUB 20 
2440 Z»="IF 0B(1)=-1 THEN GOSUB 300+T; 
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PRINT Tf";GOSUB 20 
2450 7*="NEXT I":GOSUB 20 
2460 Z*="GOTO l08o";GrjSU8 20 
2500 PRINT " - SAVE SAME":NUMERCLINEA= 
1600 

2510 Z*="IF ENTRADA*( 1,3)0" :60SUB 70; 
H*="SAV":GOSUB 40;GOSUB 70:H*=" THEN G 
OTO 1700";GOSUB 40;GOSUB 20 
2520 Z*="PRINT GOSUB 70;H*-“C0N QUE 
NOMBRE ";GOSUB 40;GOSUB 90:H*=";:I f# UT 
ENTRADA*: IFLEN (ENTRADA*) >3 THEN PPlN'í" 
2530 GOSUB 40:GOSUB 70;H*="UN PUCO MAl 
CORTO!":GOSUB 40:GOSUB 70:H*=":GOTO l 
605":GOSUB 95 

2540 Z*="T*=" : GOSUB 70: Pf*--"D: GOSUB 4 
O:GOSUB 70;H*=":ENTRADA*(LEN(EN IRADA*) 

+ 1)=": GOSUB 40: GOSUB 70: U*--" . DAT" ; GOGU 
B 60 

2550 7*="T*(IEN(T»)+1)-ENTRADA*":GOSUB 
20 

2560 Z*="OPEN #1,8,O,T*":GOSUB 20 
2570 Z*="PRINT #1,JU";G'J3U8 2o 
2580 Z*="FOR Ií=í TO AO: PRINT #1,0IN1); 
NEXT I":GOSUB 20 

2590 Z*="FOR LU=1 TO AR‘':G0S1.!B 20 
2600 2*="F0R DI=1 TO ó";G0rSUB 20 
2610 Z*="PR1NT #1, l’Ad U, DI } " 

2620 Z*="NEXT DI";GOSUB 20 
2630 Z*="NEXT LU":GOSUB 20 
2640 Z*="FOR I=! lO AF;PRINT 41,Fl (I): 
NEXT I";GOSUB 20 

2650 Z*="CIOSE #1:PRINT OK*:GOTO 1080" 

IGOSUB 20 

2700 PRINT " - LOAD GAME":NUMERUI INEA- 

1700 

2710 Z*="1F ENTRADA* (1,3) O"; GOSUB 70; 
M*="LOA":GOSUB 40;GOSUB 70:H*=" THEN G 
OTO 1900":GOSUB 95 

2720 Z*="PRINT ":GOSUB 70;H*="QUE JUEG 
O GOSUB 40: GOSUB 70; H*= " ; : INPUT ENTR 
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ADA»;IF LEN(ENTRADA*)>8 THEN PRINT" 

2730 GOSüB 40:G0SUB 70:H*='‘ESTE NO FUE 
DE EX ISTIR ! " ; GOSUB 40:GOSUB 70:H*=’':G0 
TO 1705":GOSUB 95 

2740 Z*="T*=";GOSUB 70:H*="D:GOSUB 4 
O:GOSUB 70;H*=":ENTRADA*(LEN(ENTRADA*) 

+ 1)=": GOSUB 40: GOSUB 70: H*=" . DAT'*: GOSU 
B 60 

2750 7*="T*(LEN(T*)+1)=ENTRADA*":GOSUB 
20 

2760 Z*--“OPEN 41 , 4 , 0 , T*"; GOSUB 20 

2770 Z*="INPUT 41,JU":GOSUB 20 

2780 Z*=’’FOR 1 = 1 TO AO: INPUT 41,La;0B( 

I)=LO:NEXT IGOSUB 20 

2790 7*="F0R LU=1 TO AR";GOSUB 20 

2800 Z*="FOR DI=1 TO 6":GOSUB 20 

2810 7*=" INPUT 41,META;PA(L.U,ni)=META" 

:GOSUB 20 

2820 Z*="NEXT DI":GOSUB 20 

2830 Z*="NEXT LU":GOSUB 20 

2840 Z*="FOR 1=1 10 AF:INPUT 41,MFTA:F 

L(I)=META;NEXT I";GOSUB 20 

2850 Z*=“GLOSE 41:PRINT OK*:GOTO 1080" 

:GOSUB 20 

2900 PRTNT " - INS y FIN":NUMEROLINEA- 
1900 

2910 7*="IF ENTRADA*(1,3)<>":G0SUB 70: 
H*="INS";GOSUB 40:GOSUB 70:H*=" THEN G 
OTO 1910":GOSUB 95 

2920 Z*="GOSUB 800;GOTO 1080":GOSUB 20 
2930 7*="IF ENTRADA*(1,3)O";GOSUB 70: 
H*="FIN";GOSUB 40:GOSUB 70:H*=" THEN G 
GOTO 2000":GOSUB 95 

2940 Z*="GRAPHICS O;PRINT ":GOSUB 70;H 
*="EL AUTOR LE DESEA MAS SUERTE EN EL" 
:GOSUB 40:GOSUB 70:H*=":PRINT ":GOSUB 
40 

3000 GOSUB 70;H*="PROXIMO INTENTO'":G0 
SUB 40;GOSUB 70:H*=":PRINT ;PRINT ;FRl 
NT :END":GOSUB 95 
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3010 PRINT " - ANALISIS DE ENTRADA":NU 
MEROLINEA=?000:SALTOLINEA-1O 
3020 Z*="LN=LFN(ENTRADA*)";GOSUB 20 
3030 Z*="FOR 1 = 1 TO l.N": GOSUB 20 
3040 Z*="IF ENTRADA* (I, I) O" : GOSUR 70; 
H*=" ";GOSUB 40;GOSÜB 70:H«=" THEN NEX 
T I";GOSUB 95 

3050 Z*="EV*=ENTRADA*(1,1)";GOSUB 20 
3060 Z*="IF LEN(EV*)=LN-1 THEN GOTO 20 
90":GOSUB 20 

3070 Z*="Fn*=-FNTRADA*(I + l,LN) ": GOSUB 2 
O 

3000 7*="VN=0;N=0":GOSUB 20 

3090 Z*="EV*=EV*(l,":X=WL;GOSUB 80:H*= 

") "-.GOSUB 40.-GOSUB 20 

3100 Z*="E0*=E0*(1,";X=WL:GOSUB 80:H*= 
">":GOSUB 40:GOSUB 20 

3110 Z*="FOR 1=1 TO LEN(VERBOS*) STEP 
GOSUB 80:GOSUB 20 
3120 Z*="VN=VN+l";GOSUB 20 
3130 X=WL-1:Z*="IF VERBOS*OGOSUB 
80:H*=“)=EV* THEN 2140":GOSUB 95 
3140 Z*="NEXT I":60SUB 20 
3150 Z*="PRINT ":GOSUB 70;H*="N0 ENTIE 
NDO EL VERBO»GOSUB 40;GOSUB 70:H*=": 
GOTO 1080":GOSUB 95 

3160 X=Wl;Z*="FOR J=1 TO LEN(OBJETOS*) 
STEP GOSUB 80:GOSUB 20 
3170 Z*="N=N+1“:GOSUB 20 
3180 X=WL-1;Z*="IF OBJETOS*(l,I+":GOSU 
B 80:H*=">=ED* THEN 2200":GOSUB 95 
3190 Z*="NEXT I":GOSUB 20 
3200 Z*="PRINT ":GOSUB 70:H*="Nn ENTIE 
NDO EL OBJETO?":GOSUB 40;GOSUB 70;H*=" 
;GOTO 1080":GOSUB 95 

3210 PRINT " - TABLA DE SALTOS":NUMERO 
LINEA=2200:X=4000:Z*="ON VN GOTO" 

3220 FOR 1=1 TO AV 

3230 X=X+1000:GOSUB 80 

3235 IF lOAV THEN H*=",": GOSUB 40 
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3240 WEXT I 
3245 GOSUB 20 

3250 PRINT •• - TITULO: JUGADOR MUFIRTO" 

: NUMF.ROLINEA=4500 
3260 2$-*’GRAPHICS 0":GOBüB 20 
3270 7.*="PRINT GOSUB 70:H$=’'L0 QUE F 
Al. TABA'”;GOSUB 70: H*='‘: PRI^4T ; PRINT MO 
GOSUB 95 

3280 2*="PRINT .-PRINT GOSUB 70:H$="E 
STOY MUERTO ' '': GOSUB 40: GOSUB 70; H$-" : P 
RINTGOSUB 95 

3290 Z^=*'PRINT '':GOSLfB 70: Ht="QU lERF Q 
UE LO INTENTE OTRA VEZ ":GOSUB 40:G0SÜ 
B 70:HÍ='*; : INPUr ENTRADA*" r GOSUB 95 
3300 Z*="IF ENTRADA*(1,1)=":GOSUB 70;H 
*="S":GOSUB 40:GOSUB 70:H*=" THEN CLP 
:GOTO 100" .-GOSUB 95 
3310 2*="GOTO 1960":GOSUB 20 
3320 PRINT " - TITULO: VICTORIA":NUMER 
OLINFA=4e00 

3330 Z*=^"GRAPHICS O"; GOSUB 20 

3340 Z*="PRINT GOSUB 70:H*=”ENHORABU 

ENA!”:GOSUB 60 

3350 Z*="PRINT zFHlNT :PRINT GOSUB 7 
0:H*=**HA RESUELTO EL PROBLEMA PLANTEAD 
O Y":GOSUB 40;GOSUB 20 

3360 Z*=''PRINT ;PRÍNT GOSUB 70:H*="P 
UEDE AFRONTAR UNA NUEVA AVENTURA";GOSU 
B 40;GOSUB 20 

3380 Z*-"PRINI ;PRINT rPRINl :END";GOS 
UB 20 

3390 NUMER0LINEA=4900: Z*=‘’PRINT " ; GOSU 
B 70:H*="ATENCION ERRORGOSUB 40;Ü0S 
UB 70:M*=";GOTO 1080";GOSUB 95 
4000 M*="PARTE IV: CONDICIONES ACCIG 
NES";SALTOL1NEA=1:Z1=5000:NUMERDLINEA= 
Zl;0=0;V=0 
4005 V-=V+1 
4010 0=0+1 

4015 X=0:Z*--'‘IF N=": GOSUB 80:H*=’' AND 
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GOSUB 40 

4020 MO*=''PARTE IV; CONDICIONES"; Ml*^ ’ 

i» 


4030 GRAPHICS 0;SeTC0L0R 2,O,O:PRINT H 
O*:PRINT MI* 

4040 PRINT " 1 “ OBJETO ESTA EN LUGAR" 
4050 PRINT " 2 - OBJETO NO ESTA EN LUG 
AR" 


4060 PRINI 
4070 PRINT 
4080 PF.INT 
4090 PRINT 
LUGAR;" 
4094 PRINT 
4097 PRINT 
4100 PRINT 


" 3 - JUGADOR TIENE OBJETO" 

" 4 - FLAG ACTIVADO" 

" 5 - FLAG DESACTIVADO" 

" 6 - JUGADOR DFBE ESTAR EN 

" 7 - Y OTRA CONDICION" 

" 8 - U OTRA CONDICION" 

;PRINT " O “ CONDICION Ü.K. 


4110 PRINT MI* 

4120 PRINT "ELIJA VERBO ";V;" OBJETO “ 

;0 

4130 INPLIT E 

4140 IF E:=1 THEN H*--"OB (N) =JU GOSUB 
40 

4150 IF E=2 THEN H*="OB(N)<>JU GOSUB 
40 

4160 IF E=3 THFN PRINT "OBJETO NUMERO 
";INPUT X;H*="OB( ".-GOSUB 40; GOSUB 80;H 
*=")=JU'*: GOSUB 40 

4170 IF E=4 THEN PRINT "FLAG NUMERO 
INPUT X; H*="Fl- ( " : GOSUB 40: GOSUB 80; H*= 
")=-l";GOSUB 40 

4180 IF E=5 THEN PRINT “FLAG NUMERO 
INPUT X;H*="FL<":GOSUB 40;GOSUB 80;H*= 
")<>-!"¡GOSUB 40 

4190 IF E=6 THEN PRINT "QUE LUGAR ":1N 

PUT X:H*="JU=":GOSUB 40 

4200 IF E=7 THEN HÍ=" AND GOSUB 40 

4210 IF E=8 THEN H*=" ÜR GOSUB 40 

4220 IF E<>0 THEN 4030 

4225 H*="THEN";GOSUB 40 
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4300 M0»=^"PARTE IV: ACCIONES" 


4310 GRAPHICS OzSETCOLOR 2,0,0:PRINT n 
O^zPRlNT’ MI i 


4320 PRINT " 1 
4330 PRINT " 2 
4340 PRINT " 3 


OBJETO DESAPARECE" 
OBJETO AL INVENTARIO" 
OBJETO aparece' DE NÜE 


VO" 

4350 PRINT 
4360 PRINT 
4370 PRINT 
4380 PRINT 
4390 PRINT 
4400 PRINT 
4410 PRINT 


" 4 - FLAB ES ACTIVADO" 

’• 5 - FLAB ES DESACTIVADO" 

" 6 - ABRIR PASADA" 

" 7 - EMITIR MENSAJE" 

" 8 - JUGADOR MUERE" 

" 9 - JUGADOR VENCE" 

:PRINT "O - ACCIONES O.K." 


4420 PRINT MlítPRINT "ELIJA VERBO ";V; 
"OBJETO ";0:INPUT E 

4430 IF E=1 THEN PRINT "OBJETO NUMERO 
"; : INPUT X: H*="OB ( " : GOSUB 40: BGSI ID 80: 
H*=")=0“:B0SUB 40 

4440 IF E-2 THEN PRINT "OBJETO NUMERO 
INPUT X: H*="OB ("; GOSUB 40; GOSUB 80: 
HS=")=-1":GOSUB 40 

4450 IF E=3 THEN PRINT "OBJETO NUMERO 
"; ; INT-UT X : H*--"OB ( " : GOSUB 40: GOSUB 80; 
Hí=“)=JU";GOSUB 40 


4460 IF E-4 THEN PRINT "FLAG NUMERO 
: INPUT X:H»="FL( ".-GOSUB 40; GOSUB 30: Ht 
=")=-!":GOSUB 40 

4470 IF E=5 THEN PRINT "FLAG NUMERO 
: INPUT X:H<.="FL (":GOSUB 40;G03UB 80; H* 
=")=0";GOSUB 40 

4480 IF E=6 THEN H*="PA(";GOSUB 40;PRI 
NT "DE LUGAR INPUT X:GOSUB a0:H»=", 
":60SUB 40:PRINT "EN DIRECCION ";:INPU 
T X 

4485 ÍF E=6 THEN GOSUB 80;H$=")=";60SU 
B 40;PRINT "A LUGAR ";;INPUT X:GOSUB 8 
O 

4490 IF E=7 THEN Hí="PRINT":GOSUB 40:6 
OSlJB 70: PRINT "TEXT INPUT H$: GOSUB 
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40:GOSUB 70 

4500 IF E=8 THFN H*-"MO$-":GOSUB 70:PR 

INT "TEXT INPUT H*:G03UB 40:G03UB 7 

0;H$-"6ÜT0 4500";GOSUB 40 

4510 IF E-9 THEN H$="G0r0 4800";GOSUB 

40 

4520 IF EOO THEN H*-~":": GOSUB 40: GOTO 
4310 

4525 HÍ-- "GOTO 1080": GOSUB 95 
4527 PRINT "MAS REFERENTE AL MISMO OBJ 
ETO?";GOSUB 90;IF ENTRADA=74 THEN GOTO 
4015 

4530 IF OOAO THEN GOTO 4010 
4540 0=0;Z1 = Z1 +1OOO;NUMEROLINEA= 21 
4550 IF VOAV THEN GOTO 4005 

10000 CLOSE 41:GRAPHICS OzSETCOLOR 2,0 
,O:PRINI "AHORE CARGUE LA AVENTURA TER 
MINADA";PRINT "CON;" 

10001 PRINT "ENTER";CHK»(34);AVENTURA* 
:PRINT ;PRINT "QUE SE DIVlERTA!":NEW 
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6. APENDICE 










1 


CORRECIONES DE PROGRAMAS 


Va a ser Imprescindible, que el poseedor del ATARI 600 XL 
repase los programas publicados en este libro para optimizar 
la memoria disponible, 

Pero también los poseedores de ATARI 800 XL pueden sacar 
partido de las siguientes propuestas. 

Naturalmente, todo lo aquí expuesto puede aplicarse a 
cualquier programa BASIC. 


OPTIMIZACION DE LA MEMORIA 

Procure utilizar en lo posible la máxima longitud de cada 
línea de programa, con lo que se reducirá el número de 
Iíneas. 

Cada línea de Instrucción ocupa varios bytes para su 
propio número , además de almacenar datos necesarios para 
encontrar la próxima línea de programa. 

¡SI usted utiliza las abreviaciones permitidas, podrá 
Incluso entrar líneas que aparezcan demasiado largas en el 
IIstado! 

¡Prescinda de todas las referencias REM! 

¡Utilice sólo expresiones de una o dos letras en vez de 
los largos nombres de variables, que nosotros hemos 
utilizado para facilitarle el manejo del programa! 
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OPTIMIZACION DE LA EJECUCION 


Las siguientes propuestas ayudan al Interpretador Basic a 
ejecutar sus programas de la forma más rápida posible. 
Naturalmente, también las propuestas mencionadas 
anteriormente contribuyen a aumentar la velocidad de 
ejecución (speed - up). 

La única manera de alcanzar este objetivo nos obliga a 
respetar los Intereses del Interpretador. 


El Interpretador confecciona una serle de listas mientras 
dura su operación. El orden de los elementos de esta lista 
dependerá del orden en que sean entrados. 

De esta forma, y según su colocación en la lista, se 
asigna a cada variable un espacio en la sección prevista que 
forma parte de la memoria del programa. SI el ordenador 
accede ahora a una determinada variable para leer o escribir 
en ella, deberá repasar todos los elementos de la lista 
hasta llegar a la variable en cuestión. 

Por ello, resulta útil entrar todas las variables por 
orden de frecuencia, lo que se puede conseguir mediante una 
línea de programa que le asigne, por ejemplo, el valor cero. 

También debería definir como variables las constantes 
utilizadas con frecuencia, ya que estos valores fijos deben 
ser transformados en cada operación según el formato de 
procesamiento del ATARI, hecho que normalmente solo se da 
una vez, esto es, al definirlas. 

¡Preste especial atención a los bucles! 


Nuestro segundo punto de partida hace referencia a los 
saltos que puede realizar un programa. Pues ¿cómo puede 
saber el Interpretador en que lugar de la memoria se 
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encuentra el destino del salto? 


Muy sencillo, no lo sabe. Se limita a repasar todas las 
líneas hasta encontrar la línea en cuestión. 

Es por el lo, que le aconsejamos situar las subrutinas 
utilizadas con mayor frecuencia al principio del programa. 
De esta manera se reduce el tiempo de búsqueda, aunque se 
trate sólo de décimas de segundo. 
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JUEGOS ESTRATEGICOS 
Y COMO PROGRAMARLOS EN EL 
ATARI 600XL/800XL/130XE 

Una lograda introducción al sugestivo tema de los "Juegos 
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de aprendizaje - muchos ejemplos Interesantes, escritos por supuesto 
de forma fácilmente comprensible. Con programas de juegos ampliamente 
detallados: NIM con un montón, bloqueo, hexapawn, mlnl-damas y muchos 
más. 
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Juegos estratégicos - y como programarlos en el ATARI 
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